When building your package, create a file called “dev_history.R” in a
“dev/” directory. You will store all “manual” calls to
devtools::xxx
and usethis::xxx
in this
script.
Its first line should be :
You can then call {attachment} in this file to help you build your description file.
What you really want is to fill and update your description file
along with the modifications of your documentation. Indeed, only this
function will really be called in your “dev/dev_history.R”.
Run attachment::att_amend_desc()
each time before
devtools::check()
, this will save you some warnings and
errors !
We recommend to store the {attachment} command in a “dev/dev_history.R” file in your package, so that you can update the parameters if not using the default ones.
If you run att_amend_desc()
directly in the console, it
will use the last set of parameters run the last time you updated the
configuration file.
Hence, you can change the command in your “dev/dev_history.R” with
update.config = TRUE
, so that next time, you can run
attachment::att_amend_desc()
directly in the console using
these updated parameters.
Suggests
dependenciesatt_amend_desc
In your package, you can have a wrapper around
knitr::knit()
with a specific template that you store in
“inst/”. In this case, {attachment} will not detect if there are
important dependencies that you used inside your notebook file that are
necessary for your package to work properly. Indeed, we can not
anticipate if dependencies listed in files in “inst/” need to be in
“Imports”, “Suggests”, or not listed, depending on your use of these
files.
For instance, I have a notebook file “inst/my_template.Rmd” as follows, with {bookdown} being used only there in my package:
---
title: "My Super template"
author: "John Doe"
date: "2024-12-04"
output: bookdown::html_document2
---
# First title
My text here.
Suggests - If I want to present this template in an example only, {bookdown} should be listed in “Suggests”. Then I can run this once:
Imports - If I want to knit it inside a major function of my package, it is recommended to declare the dependency in the ‘roxygen’ documentation of this function.
#' Knit my internal template
#'
#' @importFrom bookdown html_document2
#' @export
#'
my_knit <- function() {
rmarkdown::render(system.file("my_template.Rmd", package = "my.package"))
}
Then I can directly run att_amend_desc()
.
In the Imports case, if for any reason I decide to delete
this my_knit()
function, then the {bookdown} dependency
won’t be needed anymore, and {attachment} will automatically remove it
with the next att_amend_desc()
If you are running this inside a Rmd like here, you may need
parameter inside_rmd = TRUE
.
# Copy package in a temporary directory
tmpdir <- tempfile(pattern = "insidermd")
dir.create(tmpdir)
file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE)
#> [1] TRUE
dummypackage <- file.path(tmpdir, "dummypackage")
# browseURL(dummypackage)
att_amend_desc(path = dummypackage, inside_rmd = TRUE, update.config = TRUE)
#> 'update.config' was set to TRUE, hence, 'use.config' was forced to FALSE
#> Saving attachment parameters to yaml config file
#> Loading required namespace: rstudioapi
#> Updating dummypackage documentation
#> Setting `RoxygenNote` to "7.3.2"
#> Writing 'NAMESPACE'
#> ℹ Loading dummypackage
#> Writing 'NAMESPACE'
#> ℹ Loading dummypackage
#> Package(s) Rcpp is(are) in category 'LinkingTo'. Check your Description file to be sure it is really what you want.
# Clean temp files after this example
unlink(tmpdir, recursive = TRUE)
set_remotes_to_desc()
adds packages that were installed
from other source than CRAN to Remotes:
field in
DESCRIPTION.
For instance:
Remotes: thinkr-open/attachment
Remotes: gitlab::jimhester/covr
Remotes: git::https://theurl/package_git.git
Remotes: local::c:\mylocalpackage
or
Remotes: local::subdir/mylocalpackage
Remotes: bioc::3.3/package_bioc
options
, like
r-universe: need to set options to repos="https://thinkr-open.r-universe.dev"
You may want to run it after att_amend_desc()
.
If you only want to find if packages were installed from other source
than CRAN, without amending DESCRIPTION, you can use
find_remotes()
.
You can use it on a vector of packages names
find_remotes(pkg = c("attachment", "desc", "glue"))
#> $attachment
#> r-universe: need to set options to repos="https://thinkr-open.r-universe.dev"
#> NA
You may also want to combine it to
att_from_description()
If you want to get the complete list of packages installed on your computer with non-CRAN repositories:
You can test it if you install {fusen} from GitHub or r-universe:
# From GitHub
remotes::install_github("ThinkR-open/fusen",
quiet = TRUE, upgrade = "never")
attachment::find_remotes("fusen")
#> $fusen
#> [1] "ThinkR-open/fusen"
# From r-universe as default repos
install.packages("fusen", repos = "https://thinkr-open.r-universe.dev")
attachment::find_remotes("fusen")
#> r-universe: need to set options to repos="https://thinkr-open.r-universe.dev"
Once your package is finished. Well, is a package ever finished ?
Let’s say, once you want to release a version of your package, you may
want to deliver the list of dependencies your users will have to
install. A little script like
install.packages(c(...all dep...))
would be so nice :
This file will be placed in inst/dependencies.R
and
contains :
# No Remotes ----
# remotes::install_github("ThinkR-open/fcuk")
# Attachments ----
to_install <- c("covr", "desc", "devtools", "glue", "knitr", "magrittr", "rmarkdown", "stats", "stringr", "testthat", "utils")
for (i in to_install) {
message(paste("looking for ", i))
if (!requireNamespace(i)) {
message(paste(" installing", i))
install.packages(i)
}
}
Of course, you can also use {attachment} out of a package to list all
package dependencies of R scripts using
att_from_rscripts()
, Rmd files using
att_from_rmds()
or examples from R scripts using
att_from_examples()
.
dummypackage <- system.file("dummypackage", package = "attachment")
att_from_rscripts(path = file.path(dummypackage, "R"))
#> [1] "stats"
att_from_rmds(path = file.path(dummypackage, "vignettes"), inside_rmd = TRUE)
#> [1] "knitr" "rmarkdown" "glue"
att_from_examples(dir.r = file.path(dummypackage, "R"))
#> [1] "utils" "stringr"