Merge pull request #47 from biometry/develop

Develop

Author: florianhartig

rLPJGUESS/DESCRIPTION

@@ -1,11 +1,13 @@
 Package: rLPJGUESS
 Title: A R package that wraps the LPJ-GUESS 3.1 model
-Version: 1.1.0
+Version: 1.1.1
+Date: 2018-07-03
 Authors@R: c(person("Florian", "Hartig", , "[email protected]", role = c("aut")),
             person("Maurizio", "Bagnara", , "[email protected]", role = c("aut", "cre")),
             person("Ramiro", "Silveyra Gonzalez", , "[email protected]", role = c("aut")))
-Description: The rLPJGUESS package provides functions to run LPJ-GUESS within R. It
-    also allows to parallelize the model execution on personal laptops and on HPC.
+Description: The rLPJGUESS package provides functions to run LPJ-GUESS within
+    R. It also allows to parallelize the model execution on personal laptops and on
+    HPC clusters.
 Depends:
     R (>= 3.1.0)
 Imports:
@@ -17,7 +19,7 @@ Suggests:
     rmarkdown (>= 1.3),
     testthat (>= 1.0.2),
     Rmpi (>= 0.6-5)
-License: file LICENSE
+License: GPL-3
 LazyData: true
 VignetteBuilder: knitr
-RoxygenNote: 6.0.1
+RoxygenNote: 5.0.1

rLPJGUESS/LICENSE

@@ -0,0 +1,5 @@
+
+rLPJGUESS 1.1.1
+
+- various smaller fixes
+- improved unit tests

rLPJGUESS/NEWS

@@ -9,6 +9,7 @@
 #' }
 #' @keywords rLPJGUESS
 #' @export
+#' @example /inst/examples/LPJDataClassHelp.R
 #' @author Ramiro Silveyra Gonzalez
 setClass("LPJData",
          representation(

rLPJGUESS/R/LPJDataClass.R

@@ -16,6 +16,7 @@
 #' }
 #' @keywords rLPJGUESS
 #' @export
+#' @example /inst/examples/LPJSetupClassHelp.R
 #' @author Ramiro Silveyra Gonzalez
 setClass("LPJSetup",
          representation(

rLPJGUESS/R/LPJSetupClass.R

@@ -8,13 +8,12 @@
 #'  If not provided, package templates will be used
 #' @param mode a character string indicating whether using cru or cf data
 #' @return none
+#' @details Please note that this function is integrated in \code{\link{runLPJ}}.
 #' @keywords rLPJGUESS
 #' @export
 #' @author  Ramiro Silveyra Gonzalez, Maurizio Bagnara, Florian Hartig
 #' @note Based an older code of Istem Fer, Uni Potsdam
-#' @examples \dontrun{
-#' callLPJ("/home/LPJrun", "/home/LPJrun/runDirectory1", "global_cru.ins")
-#' }
+#' @example /inst/examples/callLPJHelp.R
 callLPJ <- function(mainDir, runDir , template2, mode){
   #----------------------------------------------------------------------------#
   # CHECK INPUTS AND EXIT IF ANY ERROR

rLPJGUESS/R/callLPJ.R

@@ -10,9 +10,7 @@
 #' The function is a wrapper of mpi.finalize from the Rmpi package. Check the
 #' package manual for futher advise on using mpi.finalize and mpi.quit.
 #'
-#' @examples \dontrun{
-#' exitMPI()
-#'  }
+#' @example /inst/examples/exitMPIHelp.R
 exitMPI <- function(){
   if (is.loaded("mpi_initialize")){
     if (Rmpi::mpi.comm.size(comm =1) > 1){

rLPJGUESS/R/exitMPI.R

@@ -1,7 +1,7 @@
 #' @title A function to process LPJ-GUESS outputs
 #' @description This function reads the ASCII outputs produced by LPJ-GUESS.
 #' It takes a list of output types (typeList) and finds them in the specified path.
-#' The data is stored in a data class object: LPJData. If processing is TRUE,
+#' The data is stored in a data class object: \linkS4class{LPJData}. If processing is TRUE,
 #' the data will be stored as zoo time series. Ohterwise, as data frames.
 #' @param x a character string indicating path to the output files
 #' @param typeList  a character vector with the outputs to be analyzed.
@@ -11,18 +11,17 @@
 #' the processed outputs of the model (optional)
 #' @param processing a boolean indicating whether output files will be turned
 #'  into time series (default is FALSE)
-#' @return the processed data returned in a S4 Class: LPJData Class
+#' @return the processed data returned in a S4 Class: \linkS4class{LPJData} class
+#' @details Please note that this function is integrated in \code{\link{runLPJ}},
+#' which alread returns the data as a \linkS4class{LPJData} object.
 #' @seealso \linkS4class{LPJData}, \url{https://cran.r-project.org/web/packages/zoo/zoo.pdf}
 #' @author Ramiro Silveyra Gonzalez, Maurizio Bagnara, Florian Hartig
 #' @note Based on an older code of Joerg Steinkamp
 #' @details To convert the outputs into zoo time series is only supported when running the
-#' model for one grid cell. For running  LPJ-GUESS for several grid cells, please set
+#' model for one grid cell. When running  LPJ-GUESS for several grid cells, please set
 #' processing to FALSE.
 #' @export
-#' @examples \dontrun{
-#' LPJout <- getLPJData( typeList = c("aaet",  "cflux","lai", "nflux"),
-#'           "~/path/to/output/files", runInfo = list(parameter1 = 0.5, grid = 1))
-#' }
+#' @example /inst/examples/getDataHelp.R
 getLPJData <- function(x, typeList = NULL,  runInfo=NULL, processing = FALSE){
                     #, fun = NULL){
   # other options which could be included:

rLPJGUESS/R/getData.R

@@ -6,9 +6,7 @@
 #' @return a list or a matrix with design parameter names and their values
 #' @export
 #' @author Ramiro Silveyra Gonzalez, Maurizio Bagnara
-#' @examples \dontrun{
-#' parameterList <- getParameterList("global")
-#' }
+#' @example /inst/examples/getDesignHelp.R
 getDesign <- function(scale, list =  F){
   if ( is.null(scale) || scale != "global" & scale != "europe"){
     stop("Please provide a valid scale: global or europe")

rLPJGUESS/R/getDesign.R

@@ -6,10 +6,10 @@
 #' as a list, otherwise as a matrix.
 #' @return a list or a matrix with parameter names and their values
 #' @export
+#' @details To obtain the parameters used in previous runs, see \code{\link{getRunInfo}}.
+#' @seealso \code{\link{runLPJ}}, \code{\link{getRunInfo}}
 #' @author Ramiro Silveyra Gonzalez, Maurizio Bagnara
-#' @examples \dontrun{
-#' parameterList <- getParameterList("global")
-#' }
+#' @example /inst/examples/getParameterListHelp.R
 getParameterList <- function(scale, list =  TRUE){
   if ( is.null(scale) || scale != "global" & scale != "europe"){
     stop("Please provide a valid scale: global or europe")