version 1.1.2

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: evprof
 Title: Electric Vehicle Charging Sessions Profiling and Modelling
-Version: 1.1.1
+Version: 1.1.2
 Authors@R: 
     person("Marc", "Cañigueral", , "marc.canigueral@udg.edu", role = c("aut", "cre", "cph"),
            comment = c(ORCID = "0000-0001-9724-5829"))
@@ -24,9 +24,9 @@ Language: en-US
 LazyData: true
 RoxygenNote: 7.2.3
 NeedsCompilation: no
-Packaged: 2024-02-05 15:56:41 UTC; mcanigueral
+Packaged: 2024-03-14 14:18:04 UTC; mcanigueral
 Author: Marc Cañigueral [aut, cre, cph]
     (<https://orcid.org/0000-0001-9724-5829>)
 Maintainer: Marc Cañigueral <marc.canigueral@udg.edu>
 Repository: CRAN
-Date/Publication: 2024-02-05 22:50:06 UTC
+Date/Publication: 2024-03-14 14:50:05 UTC

MD5

@@ -1,15 +1,15 @@
-9fe86adcd870df013505ee1f13e1ec8a *DESCRIPTION
+492a76075097ef3c8158abc871f09c41 *DESCRIPTION
 fcc2ca471a4b59355c21ce2c9d1f0a1a *NAMESPACE
-954b5b0ba2e926fc4d5474b87c1e78f8 *NEWS.md
+b87ade791834ae44c8057d27b741ab92 *NEWS.md
 a383b1dc42e7950cfa6b998023d1fa4e *R/clustering.R
 a6d0c58e12a1f1ae92c074ebcf043701 *R/data.R
-63e957a463b4f586872143e27881fe3b *R/exploration.R
+f636e368faa4869e7bed05e01f4af033 *R/exploration.R
 35f12fae423dabc6f4489031545ffe3c *R/modelling.R
 77bf9b420ca315d87755518b6982c06a *R/package_utils.R
 9a9e27cb21aa5086d5387a17e8f342c8 *R/preprocessing.R
 31947b3126783aa2749dc2aef8855a9b *R/profiling.R
 d0c4b6446ee70d1a99bcdf9bd36f166e *README.md
-ca92612c359a079d6fbda517be2ed926 *build/vignette.rds
+80d51ab68ea766c8768b7ebab7bca736 *build/vignette.rds
 b8f25843c7bbd51a8a95ac9af33b621e *data/california_GMM.rda
 80ccd1f35fdbc3bdc043ba254b86c8b8 *data/california_ev_model.rda
 8fe97f9bd51af4b5355ef726042604d3 *data/california_ev_sessions.rda

NEWS.md

@@ -1,3 +1,8 @@
+# evprof 1.1.2
+
+* Patch in function `convert_time_dt_to_plot_dt` that was causing errors in some OS
+
+
 # evprof 1.1.1
 
 * Improved the consistency of the provided example data sets

R/exploration.R

@@ -53,14 +53,16 @@ convert_time_num_to_chr <- function(time_num) {
 #' @param time_dt Datetime value
 #' @param start Start hour (int)
 #'
-#' @importFrom lubridate date<- date hour days
+#' @importFrom lubridate date<- date hour days today
 #'
 #' @keywords internal
 #'
 convert_time_dt_to_plot_dt <- function(time_dt, start=getOption("evprof.start.hour")) {
-  date(time_dt) <- Sys.Date()
-  next_day_idx <- seq(1, length(time_dt))[(hour(time_dt) < start)]
-  date(time_dt)[next_day_idx] <- date(time_dt)[next_day_idx] + days(1)
+  date(time_dt) <- today()
+  if (any(hour(time_dt) < start)) {
+    next_day_idx <- (hour(time_dt) < start)
+    date(time_dt)[next_day_idx] <- date(time_dt)[next_day_idx] + days(1)
+  }
   time_dt
 }