Title: | Deal with Dependencies |
---|---|
Description: | Manage dependencies during package development. This can retrieve all dependencies that are used in ".R" files in the "R/" directory, in ".Rmd" files in "vignettes/" directory and in 'roxygen2' documentation of functions. There is a function to update the "DESCRIPTION" file of your package with 'CRAN' packages or any other remote package. All functions to retrieve dependencies of ".R" scripts and ".Rmd" or ".qmd" files can be used independently of a package development. |
Authors: | Sébastien Rochette [cre, aut] , Vincent Guyader [aut] (<https://orcid.org/0000-0003-0671-9270>, previous maintainer), Murielle Delmotte [aut] , Swann Floc'hlay [aut] , ThinkR [cph, fnd] |
Maintainer: | Sébastien Rochette <[email protected]> |
License: | GPL-3 |
Version: | 0.4.2.9002 |
Built: | 2024-11-04 05:19:36 UTC |
Source: | https://github.com/ThinkR-open/attachment |
Amend package DESCRIPTION file with the list of dependencies extracted from
R, examples, tests, vignettes files.
att_to_desc_from_pkg() is an alias of att_amend_desc(),
for the correspondence with att_to_desc_from_is()
.
att_amend_desc( path = ".", path.n = "NAMESPACE", path.d = "DESCRIPTION", dir.r = "R", dir.v = "vignettes", dir.t = "tests", extra.suggests = NULL, pkg_ignore = NULL, document = TRUE, normalize = TRUE, inside_rmd = FALSE, must.exist = TRUE, check_if_suggests_is_installed = TRUE, update.config = FALSE, use.config = TRUE, path.c = "dev/config_attachment.yaml" ) att_to_desc_from_pkg( path = ".", path.n = "NAMESPACE", path.d = "DESCRIPTION", dir.r = "R", dir.v = "vignettes", dir.t = "tests", extra.suggests = NULL, pkg_ignore = NULL, document = TRUE, normalize = TRUE, inside_rmd = FALSE, must.exist = TRUE, check_if_suggests_is_installed = TRUE, update.config = FALSE, use.config = TRUE, path.c = "dev/config_attachment.yaml" )
att_amend_desc( path = ".", path.n = "NAMESPACE", path.d = "DESCRIPTION", dir.r = "R", dir.v = "vignettes", dir.t = "tests", extra.suggests = NULL, pkg_ignore = NULL, document = TRUE, normalize = TRUE, inside_rmd = FALSE, must.exist = TRUE, check_if_suggests_is_installed = TRUE, update.config = FALSE, use.config = TRUE, path.c = "dev/config_attachment.yaml" ) att_to_desc_from_pkg( path = ".", path.n = "NAMESPACE", path.d = "DESCRIPTION", dir.r = "R", dir.v = "vignettes", dir.t = "tests", extra.suggests = NULL, pkg_ignore = NULL, document = TRUE, normalize = TRUE, inside_rmd = FALSE, must.exist = TRUE, check_if_suggests_is_installed = TRUE, update.config = FALSE, use.config = TRUE, path.c = "dev/config_attachment.yaml" )
path |
path to the root of the package directory. Default to current directory. |
path.n |
path to namespace file. |
path.d |
path to description file. |
dir.r |
path to directory with R scripts. |
dir.v |
path to vignettes directory. Set to empty (dir.v = "") to ignore. |
dir.t |
path to tests directory. Set to empty (dir.t = "") to ignore. |
extra.suggests |
vector of other packages that should be added in Suggests (pkgdown, covr for instance) |
pkg_ignore |
vector of packages names to ignore. |
document |
Run function roxygenise of roxygen2 package |
normalize |
Logical. Whether to normalize the DESCRIPTION file. See |
inside_rmd |
Logical. Whether function is run inside a Rmd, in case this must be executed in an external R session |
must.exist |
Logical. If TRUE then an error is given if packages do not exist within installed packages. If NA, a warning. |
check_if_suggests_is_installed |
Logical. Whether to require that packages in the Suggests section are installed. |
update.config |
logical. Should the parameters used in this call be saved in the config file of the package |
use.config |
logical. Should the command use the parameters from the config file to run |
path.c |
character Path to the yaml config file where parameters are saved |
Your daily use is to run att_amend_desc()
, as is.
You will want to run this function sometimes with some extra information like
att_amend_desc(pkg_ignore = "x", update.config = TRUE)
if you have to update
the configuration file.
Next time att_amend_desc()
will use these parameters from the configuration
file directly.
Update DESCRIPTION file.
# Run on an external "dummypackage" as an example # For your local use, you do not have to specify the `path` as below # By default, `att_amend_desc()` will run on the current working directory # Create a fake package for the example tmpdir <- tempfile(pattern = "description") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Update documentation and dependencies att_amend_desc(path = dummypackage) # You can look at the content of this external package #' # browseURL(dummypackage) # Update the config file with extra parameters # We recommend that you store this code in a file in your "dev/" directory # to run it when needed att_amend_desc(path = dummypackage, extra.suggests = "testthat", update.config = TRUE) # Next time, in your daily development att_amend_desc(path = dummypackage) # Clean after examples unlink(tmpdir, recursive = TRUE)
# Run on an external "dummypackage" as an example # For your local use, you do not have to specify the `path` as below # By default, `att_amend_desc()` will run on the current working directory # Create a fake package for the example tmpdir <- tempfile(pattern = "description") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Update documentation and dependencies att_amend_desc(path = dummypackage) # You can look at the content of this external package #' # browseURL(dummypackage) # Update the config file with extra parameters # We recommend that you store this code in a file in your "dev/" directory # to run it when needed att_amend_desc(path = dummypackage, extra.suggests = "testthat", update.config = TRUE) # Next time, in your daily development att_amend_desc(path = dummypackage) # Clean after examples unlink(tmpdir, recursive = TRUE)
Look for functions called in data loading code
att_from_data(chr)
att_from_data(chr)
chr |
A character vector containing the code as a string. The code should follow the pattern used for loading data with |
A character vector containing the names of the packages from which datasets are being loaded.
vec_char <- 'data("starwars", package = "dplyr")' att_from_data(vec_char)
vec_char <- 'data("starwars", package = "dplyr")' att_from_data(vec_char)
Return all package dependencies from current package
att_from_description( path = "DESCRIPTION", dput = FALSE, field = c("Depends", "Imports", "Suggests") )
att_from_description( path = "DESCRIPTION", dput = FALSE, field = c("Depends", "Imports", "Suggests") )
path |
path to the DESCRIPTION file |
dput |
if FALSE return a vector instead of dput output |
field |
DESCRIPTION field to parse, Import, Suggests and Depends by default |
A character vector with packages names
dummypackage <- system.file("dummypackage", package = "attachment") # browseURL(dummypackage) att_from_description(path = file.path(dummypackage, "DESCRIPTION"))
dummypackage <- system.file("dummypackage", package = "attachment") # browseURL(dummypackage) att_from_description(path = file.path(dummypackage, "DESCRIPTION"))
Get all packages called in examples from R files
att_from_examples(dir.r = "R")
att_from_examples(dir.r = "R")
dir.r |
path to directory with R scripts. |
Character vector of packages called with library or require.
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_examples(dir.r = file.path(dummypackage,"R"))
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_examples(dir.r = file.path(dummypackage,"R"))
return package dependencies from NAMESPACE file
att_from_namespace(path = "NAMESPACE", document = TRUE, clean = TRUE)
att_from_namespace(path = "NAMESPACE", document = TRUE, clean = TRUE)
path |
path to NAMESPACE file |
document |
Run function roxygenise of roxygen2 package |
clean |
Logical. Whether to remove the original NAMESPACE before updating |
a vector
tmpdir <- tempfile(pattern = "namespace") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # browseURL(dummypackage) att_from_namespace(path = file.path(dummypackage, "NAMESPACE")) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
tmpdir <- tempfile(pattern = "namespace") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # browseURL(dummypackage) att_from_namespace(path = file.path(dummypackage, "NAMESPACE")) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
Get all dependencies from a Rmd file
att_from_rmd( path, temp_dir = tempdir(), warn = -1, encoding = getOption("encoding"), inside_rmd = FALSE, inline = TRUE ) att_from_qmd( path, temp_dir = tempdir(), warn = -1, encoding = getOption("encoding"), inside_rmd = FALSE, inline = TRUE )
att_from_rmd( path, temp_dir = tempdir(), warn = -1, encoding = getOption("encoding"), inside_rmd = FALSE, inline = TRUE ) att_from_qmd( path, temp_dir = tempdir(), warn = -1, encoding = getOption("encoding"), inside_rmd = FALSE, inline = TRUE )
path |
Path to a Rmd file |
temp_dir |
Path to temporary script from purl vignette |
warn |
-1 for quiet warnings with purl, 0 to see warnings |
encoding |
Encoding of the input file; always assumed to be UTF-8 (i.e., this argument is effectively ignored). |
inside_rmd |
Logical. Whether function is run inside a Rmd, in case this must be executed in an external R session |
inline |
Logical. Default TRUE. Whether to explore inline code for dependencies. |
vector of character of packages names found in the Rmd
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rmd(path = file.path(dummypackage,"vignettes/demo.Rmd"))
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rmd(path = file.path(dummypackage,"vignettes/demo.Rmd"))
Get all packages called in vignettes folder
att_from_rmds( path = "vignettes", pattern = "*.[.](Rmd|rmd|qmd)$", recursive = TRUE, warn = -1, inside_rmd = FALSE, inline = TRUE ) att_from_qmds( path = "vignettes", pattern = "*.[.](Rmd|rmd|qmd)$", recursive = TRUE, warn = -1, inside_rmd = FALSE, inline = TRUE )
att_from_rmds( path = "vignettes", pattern = "*.[.](Rmd|rmd|qmd)$", recursive = TRUE, warn = -1, inside_rmd = FALSE, inline = TRUE ) att_from_qmds( path = "vignettes", pattern = "*.[.](Rmd|rmd|qmd)$", recursive = TRUE, warn = -1, inside_rmd = FALSE, inline = TRUE )
path |
path to directory with Rmds or vector of Rmd files |
pattern |
pattern to detect Rmd files |
recursive |
logical. Should the listing recurse into directories? |
warn |
-1 for quiet warnings with purl, 0 to see warnings |
inside_rmd |
Logical. Whether function is run inside a Rmd, in case this must be executed in an external R session |
inline |
Logical. Default TRUE. Whether to explore inline code for dependencies. |
Character vector of packages called with library or require. knitr and rmarkdown are added by default to allow building the vignettes if the directory contains "vignettes" in the path
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rmds(path = file.path(dummypackage,"vignettes"))
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rmds(path = file.path(dummypackage,"vignettes"))
::
and library/requires in one scriptLook for functions called with ::
and library/requires in one script
att_from_rscript(path)
att_from_rscript(path)
path |
path to R script file |
Calls from pkg::fun in roxygen skeleton and comments are ignored
a vector
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rscript(path = file.path(dummypackage,"R","my_mean.R"))
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rscript(path = file.path(dummypackage,"R","my_mean.R"))
::
and library/requires in folder of scriptsLook for functions called with ::
and library/requires in folder of scripts
att_from_rscripts(path = "R", pattern = "*.[.](r|R)$", recursive = TRUE)
att_from_rscripts(path = "R", pattern = "*.[.](r|R)$", recursive = TRUE)
path |
directory with R scripts inside or vector of R scripts |
pattern |
pattern to detect R script files |
recursive |
logical. Should the listing recurse into directories? |
vector of character of packages names found in the R script
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rscripts(path = file.path(dummypackage, "R")) att_from_rscripts(path = list.files(file.path(dummypackage, "R"), full.names = TRUE))
dummypackage <- system.file("dummypackage",package = "attachment") # browseURL(dummypackage) att_from_rscripts(path = file.path(dummypackage, "R")) att_from_rscripts(path = list.files(file.path(dummypackage, "R"), full.names = TRUE))
Amend DESCRIPTION with dependencies from imports and suggests package list
att_to_desc_from_is( path.d = "DESCRIPTION", imports = NULL, suggests = NULL, check_if_suggests_is_installed = TRUE, normalize = TRUE, must.exist = TRUE )
att_to_desc_from_is( path.d = "DESCRIPTION", imports = NULL, suggests = NULL, check_if_suggests_is_installed = TRUE, normalize = TRUE, must.exist = TRUE )
path.d |
path to description file. |
imports |
character vector of package names to add in Imports section |
suggests |
character vector of package names to add in Suggests section |
check_if_suggests_is_installed |
Logical. Whether to require that packages in the Suggests section are installed. |
normalize |
Logical. Whether to normalize the DESCRIPTION file. See |
must.exist |
Logical. If TRUE then an error is given if packages do not exist within installed packages. If NA, a warning. |
must.exist
is better set to TRUE
during package development.
This stops the process when a package does not exists on your system.
This avoids check errors with typos in package names in DESCRIPTION.
When used in CI to discover dependencies, for a bookdown for instance,
you may want to set to FALSE
(no message at all) or NA
(warning for not installed).
Fill in Description file
tmpdir <- tempfile(pattern = "descfromis") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # browseURL(dummypackage) att_to_desc_from_is(path.d = file.path(dummypackage, "DESCRIPTION"), imports = c("magrittr", "attachment"), suggests = c("knitr")) # In combination with other functions att_to_desc_from_is(path.d = file.path(dummypackage, "DESCRIPTION"), imports = att_from_rscripts(file.path(dummypackage, "R")), suggests = att_from_rmds(file.path(dummypackage, "vignettes"))) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
tmpdir <- tempfile(pattern = "descfromis") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # browseURL(dummypackage) att_to_desc_from_is(path.d = file.path(dummypackage, "DESCRIPTION"), imports = c("magrittr", "attachment"), suggests = c("knitr")) # In combination with other functions att_to_desc_from_is(path.d = file.path(dummypackage, "DESCRIPTION"), imports = att_from_rscripts(file.path(dummypackage, "R")), suggests = att_from_rmds(file.path(dummypackage, "vignettes"))) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
Outputs the list of instructions and a "dependencies.R" file with instructions in the "inst/" directory
create_dependencies_file( path = "DESCRIPTION", field = c("Depends", "Imports"), to = "inst/dependencies.R", open_file = TRUE, ignore_base = TRUE, install_only_if_missing = FALSE )
create_dependencies_file( path = "DESCRIPTION", field = c("Depends", "Imports"), to = "inst/dependencies.R", open_file = TRUE, ignore_base = TRUE, install_only_if_missing = FALSE )
path |
path to the DESCRIPTION file |
field |
DESCRIPTION field to parse, "Import" and "Depends" by default. Can add "Suggests" |
to |
path where to save the dependencies file. Set to "inst/dependencies.R" by default. Set to |
open_file |
Logical. Open the file created in an editor |
ignore_base |
Logical. Whether to ignore package coming with base, as they cannot be installed (default TRUE) |
install_only_if_missing |
Logical Modify the installation instructions to check, beforehand, if the packages are missing . (default FALSE) |
List of R instructions to install all dependencies from a DESCRIPTION file. Side effect: creates a R file containing these instructions.
# Create a fake package tmpdir <- tempfile(pattern = "depsfile") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Create the dependencies commands but no file create_dependencies_file( path = file.path(dummypackage,"DESCRIPTION"), to = NULL, open_file = FALSE) # Create the dependencies files in the package create_dependencies_file( path = file.path(dummypackage,"DESCRIPTION"), to = file.path(dummypackage, "inst/dependencies.R"), open_file = FALSE) list.files(file.path(dummypackage, "inst")) # browseURL(dummypackage) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
# Create a fake package tmpdir <- tempfile(pattern = "depsfile") dir.create(tmpdir) file.copy(system.file("dummypackage",package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Create the dependencies commands but no file create_dependencies_file( path = file.path(dummypackage,"DESCRIPTION"), to = NULL, open_file = FALSE) # Create the dependencies files in the package create_dependencies_file( path = file.path(dummypackage,"DESCRIPTION"), to = file.path(dummypackage, "inst/dependencies.R"), open_file = FALSE) list.files(file.path(dummypackage, "inst")) # browseURL(dummypackage) # Clean temp files after this example unlink(tmpdir, recursive = TRUE)
Tool to create and maintain renv.lock files. The idea is to have 2 distinct files, one for development and the other for deployment. Indeed, although packages like attachment or pkgload must be installed to develop, they are not necessary in your project, package or Shiny application.
create_renv_for_dev( path = ".", dev_pkg = "_default", folder_to_include = c("dev", "data-raw"), output = "renv.lock", install_if_missing = TRUE, document = TRUE, pkg_ignore = NULL, check_if_suggests_is_installed = TRUE, ... ) create_renv_for_prod( path = ".", output = "renv.lock.prod", dev_pkg = "remotes", check_if_suggests_is_installed = FALSE, ... )
create_renv_for_dev( path = ".", dev_pkg = "_default", folder_to_include = c("dev", "data-raw"), output = "renv.lock", install_if_missing = TRUE, document = TRUE, pkg_ignore = NULL, check_if_suggests_is_installed = TRUE, ... ) create_renv_for_prod( path = ".", output = "renv.lock.prod", dev_pkg = "remotes", check_if_suggests_is_installed = FALSE, ... )
path |
Path to your current package source folder |
dev_pkg |
Vector of packages you need for development. Use |
folder_to_include |
Folder to scan to detect development packages |
output |
Path and name of the file created, default is |
install_if_missing |
Logical. Install missing packages. |
document |
Logical. Whether to run |
pkg_ignore |
Vector of packages to ignore from being discovered in your files. This does not prevent them to be in "renv.lock" if they are recursive dependencies. |
check_if_suggests_is_installed |
Logical. Whether to require that packages in the Suggests section are installed. |
... |
Other arguments to pass to |
a renv.lock file
## Not run: # Writes a renv.lock a file in the user directory create_renv_for_dev() create_renv_for_dev(dev_pkg = "attachment") create_renv_for_prod() ## End(Not run)
## Not run: # Writes a renv.lock a file in the user directory create_renv_for_dev() create_renv_for_dev(dev_pkg = "attachment") create_renv_for_prod() ## End(Not run)
Proposes values for Remotes field for DESCRIPTION file based on your installation
find_remotes(pkg)
find_remotes(pkg)
pkg |
Character. Packages to test for potential non-CRAN installation |
List of all non-CRAN packages and code to add in Remotes field in DESCRIPTION. NULL otherwise.
# Find from vector of packages find_remotes(pkg = c("attachment", "desc", "glue")) # Find from Description file dummypackage <- system.file("dummypackage", package = "attachment") att_from_description( path = file.path(dummypackage, "DESCRIPTION")) |> find_remotes() ## Not run: # For the current package directory att_from_description() |> find_remotes() ## End(Not run) # For a specific package name find_remotes("attachment") # Find remotes from all installed packages find_remotes(list.dirs(.libPaths(), full.names = FALSE, recursive = FALSE))
# Find from vector of packages find_remotes(pkg = c("attachment", "desc", "glue")) # Find from Description file dummypackage <- system.file("dummypackage", package = "attachment") att_from_description( path = file.path(dummypackage, "DESCRIPTION")) |> find_remotes() ## Not run: # For the current package directory att_from_description() |> find_remotes() ## End(Not run) # For a specific package name find_remotes("attachment") # Find remotes from all installed packages find_remotes(list.dirs(.libPaths(), full.names = FALSE, recursive = FALSE))
Install missing package from DESCRIPTION
install_from_description( path = "DESCRIPTION", field = c("Depends", "Imports", "Suggests"), ... )
install_from_description( path = "DESCRIPTION", field = c("Depends", "Imports", "Suggests"), ... )
path |
path to the DESCRIPTION file |
field |
DESCRIPTION fields to parse, "Depends", "Imports", "Suggests" by default |
... |
Arguments to be passed to |
Used for side effect. Installs R packages from DESCRIPTION file if missing.
## Not run: # This will install packages on your system dummypackage <- system.file("dummypackage", package = "attachment") # browseURL(dummypackage) install_from_description(path = file.path(dummypackage, "DESCRIPTION")) ## End(Not run)
## Not run: # This will install packages on your system dummypackage <- system.file("dummypackage", package = "attachment") # browseURL(dummypackage) install_from_description(path = file.path(dummypackage, "DESCRIPTION")) ## End(Not run)
install packages if missing
install_if_missing(to_be_installed, ...)
install_if_missing(to_be_installed, ...)
to_be_installed |
a character vector containing required packages names |
... |
Arguments to be passed to |
Used for side effect. Install missing packages from the character vector input.
## Not run: # This will install packages on your system install_if_missing(c("dplyr", "fcuk", "rusk")) ## End(Not run)
## Not run: # This will install packages on your system install_if_missing(c("dplyr", "fcuk", "rusk")) ## End(Not run)
Add Remotes field to DESCRIPTION based on your local installation
set_remotes_to_desc(path.d = "DESCRIPTION", stop.local = FALSE, clean = TRUE)
set_remotes_to_desc(path.d = "DESCRIPTION", stop.local = FALSE, clean = TRUE)
path.d |
path to description file. |
stop.local |
Logical. Whether to stop if package was installed from local source. Message otherwise. |
clean |
Logical. Whether to clean all existing remotes before run. |
Used for side effect. Adds Remotes field in DESCRIPTION file.
tmpdir <- tempfile(pattern = "setremotes") dir.create(tmpdir) file.copy(system.file("dummypackage", package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Add remotes field if there are Remotes locally att_amend_desc(dummypackage) |> set_remotes_to_desc() # Clean temp files after this example unlink(tmpdir, recursive = TRUE) ## Not run: # For your current package att_amend_desc() |> set_remotes_to_desc() ## End(Not run)
tmpdir <- tempfile(pattern = "setremotes") dir.create(tmpdir) file.copy(system.file("dummypackage", package = "attachment"), tmpdir, recursive = TRUE) dummypackage <- file.path(tmpdir, "dummypackage") # Add remotes field if there are Remotes locally att_amend_desc(dummypackage) |> set_remotes_to_desc() # Clean temp files after this example unlink(tmpdir, recursive = TRUE) ## Not run: # For your current package att_amend_desc() |> set_remotes_to_desc() ## End(Not run)