Plecharpent/release/cran (#21)

* news update, date , license file * fix: license * useless * update with latests tests results * fixes: linting, date of release
SticsRPacks · Jun 29, 2023 · 7d23739 · 7d23739
1 parent 5d51289
commit 7d23739
Show file tree

Hide file tree

Showing 6 changed files with 38 additions and 376 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: SticsRFiles
 Title: Read and Modify 'STICS' Input/Output Files
 Version: 1.1.3
-Date: 2023-06-27
+Date: 2023-06-29
 Authors@R: c(
     person("Patrice", "Lecharpentier", , "patrice.lecharpentier@inrae.fr", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-4044-4322")),

diff --git a/LICENSE b/LICENSE
diff --git a/LICENSE.md b/LICENSE.md
diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,4 @@
-# SticsRFiles 1.1.3 _2023-06-27_
+# SticsRFiles 1.1.3 _2023-06-29_
 
 * FUNCTIONS
    * New function for generating the new_travail.usm STICS file

diff --git a/R/gen_climate.R b/R/gen_climate.R
@@ -20,13 +20,12 @@
 gen_climate <- function(files_path, out_dir) {
 
   # generate intermediate paths for a multi-years simulation
-  # i.e. > 2
+  # i.e. over 2
   files_path <- complete_climate_paths(files_path)
 
   # data concatenation
   climate_lines <- c()
   for (i in seq_along(files_path)) {
-    #out_files_lines[[i]] <- trimws(readLines(files_path[i]))
     climate_lines <- c(climate_lines, trimws(readLines(files_path[i])))
   }
 
@@ -83,7 +82,7 @@ complete_climate_paths <- function(files_path) {
   years_chr <- as.character(years)
   file_name <- strsplit(basename(files_path[1]), split = "\\.")[[1]][1]
   files_path <- file.path(
-    dirname(files_path[1]), paste0(file_name,".", years_chr)
+    dirname(files_path[1]), paste0(file_name, ".", years_chr)
   )