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\RtmpwNkTBX/glue'...
#> Receiving objects: 1% (9/892), 63 kb
#> Receiving objects: 11% (99/892), 63 kb
#> Receiving objects: 21% (188/892), 127 kb
#> Receiving objects: 31% (277/892), 239 kb
#> Receiving objects: 41% (366/892), 736 kb
#> Receiving objects: 51% (455/892), 1968 kb
#> Receiving objects: 61% (545/892), 4938 kb
#> Receiving objects: 71% (634/892), 5162 kb
#> Receiving objects: 81% (723/892), 5218 kb
#> Receiving objects: 91% (812/892), 5330 kb
#> Receiving objects: 100% (892/892), 6682 kb, done.
if (fetchedRepo) {
# Run makeReport on the Repository object.
addPaReArticle(repo)
}
#> Error in addPaReArticle(repo): could not find function "addPaReArticle"