add DESCRIPTION

Author: pfuehrlich-pik

.Rbuildignore

@@ -0,0 +1,2 @@
+^renv$
+^renv\.lock$

.lintr

@@ -0,0 +1,2 @@
+linters: lucode2::lintrRules()
+encoding: "UTF-8"

.snapshot.Rprofile

@@ -5,19 +5,19 @@ if(file.exists("~/.Rprofile")) source("~/.Rprofile")
 
 # This profile can be used to link the model to a specified library snapshot
 # (e.g. if your model version is from an older date and does not work with the
-# newest libraries anymore) 
+# newest libraries anymore).
 # By default it is not active. Just uncomment the following lines and set the
-# snapshot path to a path of your choice
+# snapshot path to a path of your choice.
 # Please make also sure that in your config file this .Rprofile file is copied
 # to the model output folder. Otherwise, the run itself will again use the
 # default library set!
 
 # PLEASE NOTE: snapshots ending with '_R4' require R 4.1 (piam/1.24 and newer),
 # other snapshots require R 3.6 (piam/1.20)
-# snapshot <- "/p/projects/rd3mod/R/libraries/snapshots/2020_03_10"
+# snapshot <- "/p/projects/rd3mod/R/libraries/snapshots/2022_10_28_R4"
 # if(file.exists(snapshot)) {
 #   cat("Setting libPaths to",snapshot,"\n")
-#   .libPaths(snapshot)
+#   .libPaths(snapshot, include.site = FALSE)
 # } else {
 #   cat("Could not find",snapshot,"\n")
 # }

DESCRIPTION

@@ -0,0 +1,83 @@
+Package: magpiemodel
+Title: MAgPIE - An Open Source land-use modeling framework
+Version: 4.5.0
+Date: 2022-11-07
+Authors@R: c(
+    person("Jan Philipp", "Dietrich", , "[email protected]"),
+    person("Benjamin Leon", "Bodirsky", , "[email protected]"),
+    person("Isabelle", "Weindl", , "[email protected]"),
+    person("Florian", "Humpenöder", , "[email protected]"),
+    person("Miodrag", "Stevanovic", , "[email protected]"),
+    person("Ulrich", "Kreidenweis"),
+    person("Xiaoxi", "Wang", , "[email protected]"),
+    person("Kristine", "Karstens", , "[email protected]"),
+    person("Abhijeet", "Mishra", , "[email protected]"),
+    person("Felicitas Dorothea", "Beier", , "[email protected]"),
+    person("Edna Johanna", "Molina Bacca", , "[email protected]"),
+    person("Patrick", "von Jeetze", , "[email protected]"),
+    person("Michael", "Windisch", , "[email protected]"),
+    person("Michael Scott", "Crawford", , "[email protected]"),
+    person("Debbora", "Leip", , "[email protected]"),
+    person("David", "Klein", , "[email protected]"),
+    person("Vartika", "Singh", , "[email protected]"),
+    person("Geanderson", "Ambrósio", , "[email protected]"),
+    person("Ewerton", "Araujo", , "[email protected]"),
+    person("Anne", "Biewald"),
+    person("Hermann", "Lotze-Campen", , "[email protected]"),
+    person("Alexander", "Popp", , "[email protected]")
+  )
+Description: The Model of Agricultural Production and its Impact on the
+    Environment (MAgPIE) is a modular open source framework for modeling
+    global land-systems, which is coupled to the grid-based dynamic
+    vegetation model LPJmL, with a spatial resolution of 0.5°x0.5°. It
+    takes regional economic conditions such as demand for agricultural
+    commodities, technological development and production costs as well as
+    spatially explicit data on potential crop yields, land and water
+    constraints (from LPJmL) into account. Based on these, the model
+    derives specific land use patterns, yields and total costs of
+    agricultural production for each grid cell. The objective function of
+    the land use model is to minimize total cost of production for a given
+    amount of regional food and bioenergy demand. Regional food energy
+    demand is defined for an exogenously given population in 10 food
+    energy categories, based on regional diets. Future trends in food
+    demand are derived from a cross-country regression analysis, based on
+    future scenarios on GDP and population growth.
+License: modified AGPL3, see LICENSE file
+URL: https://github.com/magpiemodel/magpie,
+    https://doi.org/10.5281/zenodo.1418752
+BugReports: https://github.com/magpiemodel/magpie/issues
+Imports:
+    callr,
+    citation,
+    curl,
+    data.table,
+    dplyr,
+    gdx,
+    gdxrrw,
+    ggplot2,
+    ggrepel,
+    gms,
+    here,
+    iamc,
+    lucode2 (>= 0.36.0),
+    luplot,
+    luscale,
+    lusweave,
+    m4fsdp,
+    madrat,
+    magclass,
+    magpie4,
+    MagpieNCGains,
+    magpiesets,
+    mip,
+    mrcommons,
+    patchwork,
+    quitte,
+    raster,
+    remulator,
+    renv,
+    stringr,
+    txtplot,
+    withr
+Encoding: UTF-8
+RoxygenNote: 7.2.1

scripts/start_functions.R

@@ -275,24 +275,12 @@ start_run <- function(cfg, scenario = NULL, codeCheck = TRUE, lock_model = TRUE)
     }
 
     if (getOption("autoRenvUpdates", FALSE)) {
-      source("scripts/utils/updateRenv.R")
-    } else {
-      # TODO create a lucode2 function for checking/installing updates to pik packages?
-      packagesUrl <- "https://pik-piam.r-universe.dev/src/contrib/PACKAGES"
-      pikPackages <- sub("^Package: ", "", grep("^Package: ", readLines(packagesUrl), value = TRUE))
-      installed <- utils::installed.packages()
-      outdatedPackages <- utils::old.packages(instPkgs = installed[installed[, "Package"] %in% pikPackages, ])
-      if (!is.null(outdatedPackages)) {
-        message("The following PIK packages can be updated:\n",
-                paste("-", outdatedPackages[, "Package"], ":",
-                      outdatedPackages[, "Installed"], "->", outdatedPackages[, "ReposVer"],
-                      collapse = "\n"),
-                "\nConsider updating with `Rscript scripts/utils/updateRenv.R`.")
-      }
+      source("scripts/renv_scripts/updateRenv.R")
+    } else if (!is.null(lucode2::showUpdates())) {
+      message("Consider updating with `Rscript scripts/renv_scripts/updateRenv.R`.")
     }
 
     createResultsfolderRenv <- function(resultsfolder, lockfile) {
-      # use same snapshot.type so renv::status()$synchronized always uses the same logic
       renv::init(resultsfolder)
 
       # restore same renv as main renv
@@ -301,8 +289,8 @@ start_run <- function(cfg, scenario = NULL, codeCheck = TRUE, lock_model = TRUE)
     }
     # init renv in a separate session so the libPaths of the current session remain unchanged
     callr::r(createResultsfolderRenv,
-              list(normalizePath(cfg$results_folder), normalizePath(renv::paths$lockfile())),
-              show = TRUE)
+             list(normalizePath(cfg$results_folder), normalizePath(renv::paths$lockfile())),
+             show = TRUE)
   }
 
   # If reports for both bioenergy and GHG prices are available convert them