style(PE_Oudin): add a capital letter to the expression "Julian day"

Refs #134

R/PE_Oudin.R

@@ -41,8 +41,8 @@ PE_Oudin <- function(JD, Temp,
   TimeStepIn  <- match.arg(TimeStepIn , choices = TimeStep)
   TimeStepOut <- match.arg(TimeStepOut, choices = TimeStep)
   rleJD <- rle(JD)
-  msgDaliy <- "each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates"
-  msgHourly <- "each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
+  msgDaliy <- "each day should have only one identical value of Julian days. The time series is not sorted, or contains duplicate or missing dates"
+  msgHourly <- "each day must have 24 identical values of Julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
   if (TimeStepIn == "daily" & any(rleJD$lengths != 1)) {
     warning(msgDaliy)
   }

tests/testthat/test-evap.R

@@ -66,8 +66,8 @@ test_that("PE_Oudin works", {
 test_that("Inconsitent time series", {
   skip_on_cran()
 
-  msgDaily <- "each day should have only one identical value of julian days. The time series is not sorted, or contains duplicate or missing dates"
-  msgHoury <- "each day must have 24 identical values of julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
+  msgDaily <- "each day should have only one identical value of Julian days. The time series is not sorted, or contains duplicate or missing dates"
+  msgHoury <- "each day must have 24 identical values of Julian days (one for each hour). The time series is not sorted, or contains duplicate or missing dates"
 
   # duplicated dates
   DatesFor1Dupl <- BasinObs_L0123001$DatesR