replace getPackageLocation with getSystemFile

.buildlibrary

@@ -1,4 +1,4 @@
-ValidationKey: '178515'
+ValidationKey: '178524'
 AutocreateReadme: yes
 AcceptedWarnings:
 - 'Warning: package ''.*'' was built under R version'

CITATION.cff

@@ -3,7 +3,7 @@ message: If you use this software, please cite it using the metadata from this f
 type: software
 title: 'piamPlotComparison: Create comparison plots for your model results'
 version: 0.0.9
-date-released: '2024-04-22'
+date-released: '2024-04-23'
 abstract: A frameworks to create comparison plots for your model results.
 authors:
 - family-names: Benke

DESCRIPTION

@@ -2,7 +2,7 @@ Type: Package
 Package: piamPlotComparison
 Title: Create comparison plots for your model results
 Version: 0.0.9
-Date: 2024-04-22
+Date: 2024-04-23
 Authors@R: c(
     person("Falk", "Benke", , "[email protected]", role = c("aut", "cre")),
     person("Christof", "Schoetz", role = "aut")

NAMESPACE

@@ -15,7 +15,7 @@ importFrom(dplyr,left_join)
 importFrom(dplyr,mutate)
 importFrom(dplyr,select)
 importFrom(dplyr,summarize)
-importFrom(piamutils,getPackageLocation)
+importFrom(piamutils,getSystemFile)
 importFrom(rlang,.data)
 importFrom(rlang,.env)
 importFrom(tidyr,pivot_wider)

R/compareScenarios.R

@@ -29,7 +29,7 @@
 #'   an preprocess data in your global environment during development.
 #' @param quiet \code{logical(1)}. Suppress printing during rendering?
 #' @param ... YAML parameters, see below.
-#' @importFrom piamutils getPackageLocation
+#' @importFrom piamutils getSystemFile
 #' @return The value returned by \code{\link[rmarkdown:render]{rmarkdown::render()}}.
 #' @section YAML Parameters:
 #' \describe{
@@ -125,14 +125,14 @@
 #' }
 #' @export
 compareScenarios <- function(
-  mifScen, mifHist,
-  projectLibrary = NULL,
-  outputDir = getwd(),
-  outputFile = "CompareScenarios",
-  outputFormat = "PDF",
-  envir = new.env(),
-  quiet = FALSE,
-  ...
+    mifScen, mifHist,
+    projectLibrary = NULL,
+    outputDir = getwd(),
+    outputFile = "CompareScenarios",
+    outputFormat = "PDF",
+    envir = new.env(),
+    quiet = FALSE,
+    ...
 ) {
   # Set yaml parameters and convert relative to absolute paths.
   yamlParams <- c(
@@ -163,11 +163,11 @@ compareScenarios <- function(
   # copy the template directory from the package to the outputDir because
   # rmarkdown writes to the folder containing the template.
   templateInOutputDir <- file.path(outputDir, "compareScenarios", "cs_main.Rmd")
-  file.copy(file.path(piamutils::getPackageLocation("piamPlotComparison"), "compareScenarios"),
+  file.copy(piamutils::getSystemFile("compareScenarios", package = "piamPlotComparison"),
             outputDir, recursive = TRUE)
 
   if (!is.null(projectLibrary)) {
-    file.copy(file.path(piamutils::getPackageLocation(projectLibrary), "compareScenarios"),
+    file.copy(piamutils::getSystemFile("compareScenarios", package = projectLibrary),
               outputDir, recursive = TRUE)
   }
 
@@ -188,7 +188,7 @@ compareScenarios <- function(
 # Copies the CompareScenarios-Rmds to the specified location and modifies
 # their YAML header according to \code{yamlParams}.
 .compareScenarios2Rmd <- function(projectLibrary, yamlParams, outputDir, outputFile) {
-  pathMain <- file.path(piamutils::getPackageLocation("piamPlotComparison"), "compareScenarios/cs_main.Rmd")
+  pathMain <- piamutils::getSystemFile("compareScenarios/cs_main.Rmd", package = "piamPlotComparison")
   linesMain <- readLines(pathMain)
   delimiters <- grep("^(---|\\.\\.\\.)\\s*$", linesMain)
   headerMain <- linesMain[(delimiters[1]):(delimiters[2])]
@@ -212,14 +212,10 @@ compareScenarios <- function(
 
   if (!dir.exists(pathDir)) dir.create(pathDir)
 
-  dirFiles <- dir(file.path(piamutils::getPackageLocation("piamPlotComparison"), "compareScenarios"),
-                  full.names = TRUE)
+  dirFiles <- dir(piamutils::getSystemFile("compareScenarios", package = "piamPlotComparison"), full.names = TRUE)
 
   if (!is.null(projectLibrary)) {
-    dirFiles <- c(dirFiles,
-                  dir(file.path(piamutils::getPackageLocation(projectLibrary),
-                                "compareScenarios"),
-                      full.names = TRUE))
+    dirFiles <- c(dirFiles, dir(piamutils::getSystemFile("compareScenarios", package = projectLibrary), full.names = TRUE))
   }
 
   rmdDirFiles <- grep(
@@ -232,6 +228,8 @@ compareScenarios <- function(
   ymlthis::use_rmarkdown(
     newYaml,
     path = file.path(pathDir, "cs_main.Rmd"),
-    template = file.path(piamutils::getPackageLocation("piamPlotComparison"), "compareScenarios/cs_main.Rmd"),
+    template = piamutils::getSystemFile(
+      "compareScenarios/cs_main.Rmd",
+      package = "piamPlotComparison"),
     include_yaml = FALSE)
 }

inst/compareScenarios/cs_main.Rmd

@@ -83,7 +83,6 @@ if (interactive()) {
 # may cause "Undefined control sequence" errors in LaTeX.
 try(unloadNamespace("kableExtra"), silent = TRUE)
 
-library(piamPlotComparison)
 suppressMessages(library(gridExtra))
 options(tidyverse.quiet = TRUE)
 library(tidyverse)