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)
if (FALSE) {
# For your current package
att_amend_desc() %>%
set_remotes_to_desc()
}
Run the code above in your browser using DataLab