Writes an Rmd-file to ./vignettes/articles/PaReReport.Rmd. The relative
path is dictated by the specified path in the Repository object.
addPareArticle(repo)(Repository) Repository object.
NULL
Writes Rmd-file to ./vignettes/articles/PaReReport.Rmd
fetchedRepo <- tryCatch(
{
# Set dir to clone repository to.
tempDir <- tempdir()
pathToRepo <- file.path(tempDir, "glue")
# Clone repo
git2r::clone(
url = "https://github.com/darwin-eu/IncidencePrevalence.git",
local_path = pathToRepo
)
# Create instance of Repository object.
repo <- PaRe::Repository$new(path = pathToRepo)
# Set fetchedRepo to TRUE if all goes well.
TRUE
},
error = function(e) {
# Set fetchedRepo to FALSE if an error is encountered.
FALSE
},
warning = function(w) {
# Set fetchedRepo to FALSE if a warning is encountered.
FALSE
}
)
#> cloning into 'C:\Users\MVANKE~1\AppData\Local\Temp\RtmpMLHGjE/glue'...
#> Receiving objects: 1% (71/7081), 127 kb
#> Receiving objects: 11% (779/7081), 2985 kb
#> Receiving objects: 21% (1488/7081), 3097 kb
#> Receiving objects: 31% (2196/7081), 4050 kb
#> Receiving objects: 41% (2904/7081), 4386 kb
#> Receiving objects: 51% (3612/7081), 4554 kb
#> Receiving objects: 61% (4320/7081), 4834 kb
#> Receiving objects: 71% (5028/7081), 5058 kb
#> Receiving objects: 81% (5736/7081), 15200 kb
#> Receiving objects: 91% (6444/7081), 22205 kb
#> Receiving objects: 100% (7081/7081), 27684 kb, done.
if (fetchedRepo) {
# Run makeReport on the Repository object.
addPaReArticle(repo)
}
#> Error in addPaReArticle(repo): could not find function "addPaReArticle"