From 15d7a5425e60a8f11de6567591edea8ac888a3fc Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.fr>
Date: Wed, 4 Aug 2021 15:32:26 +0200
Subject: [PATCH] style(PE_Oudin): add a capital letter to the expression
"Julian day" Refs #134
---
R/PE_Oudin.R | 4 ++--
tests/testthat/test-evap.R | 4 ++--
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/R/PE_Oudin.R b/R/PE_Oudin.R
index e8f56053..4b5cbf75 100644
--- a/R/PE_Oudin.R
+++ b/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)
}
diff --git a/tests/testthat/test-evap.R b/tests/testthat/test-evap.R
index 4f655cfc..fc126c9d 100644
--- a/tests/testthat/test-evap.R
+++ b/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
--
GitLab