updating to 18.10.2024

DESCRIPTION

@@ -11,7 +11,7 @@ Description: This package contains a set of climatic functions used in R-Instat.
 License: LGPL (>= 3)
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2
 Imports: 
     climdex.pcic,
     colorRamps,
@@ -45,4 +45,4 @@ Imports:
     tidyselect,
     zoo
 Remotes:
-    pacificclimate/climdex.pcic
+    pacificclimate/climdex.pcic

R/climatic_details.R

@@ -5,8 +5,8 @@
 #' 
 #' @param data A dataset containing climatic data.
 #' @param date The date variable in the dataset.
-#' @param elements A character vector specifying the climatic elements to analyze.
-#' @param stations A character vector specifying the stations to analyze.
+#' @param elements A character vector specifying the climatic elements to analyse.
+#' @param stations A character vector specifying the stations to analyse.
 #' @param order A logical value indicating whether the resulting tables should be ordered.
 #' @param day A logical value indicating whether to include information at the day level.
 #' @param month A logical value indicating whether to include information at the month level.
@@ -29,9 +29,9 @@
 #' #                 level = TRUE)
 
 climatic_details <- function(data, date, elements = ..., stations,
-                             order = FALSE,
-                             day = TRUE,
-                             month = FALSE,
+                             order = TRUE,
+                             day = FALSE,
+                             month = TRUE,
                              year = FALSE, level = FALSE){
 
 

R/convert_to_character_matrix.R

@@ -41,8 +41,7 @@ convert_to_character_matrix <- function(data, format_decimal_places = TRUE, deci
         #which are recognised oddly by the R.Net
         out[, i] <- as.character(data[[i]])
       } else {
-        out[, i] <-
-          format(data[[i]], digits = decimal_places[i], scientific = is_scientific[i])
+        out[,i] <- format(data[[i]], digits = decimal_places[i], scientific = is_scientific[i])
       }
       if (!is.null(na_display)) {
         out[is.na(data[[i]]), i] <- na_display
@@ -54,4 +53,4 @@ convert_to_character_matrix <- function(data, format_decimal_places = TRUE, deci
   }
   if(return_data_frame) out <- data.frame(out, stringsAsFactors = FALSE, check.names = check.names)
   return(out)
-}
+}