From 8a5eafb3e435862e2724de4e1ebc078f9aa0c011 Mon Sep 17 00:00:00 2001 From: chrisfacer Date: Mon, 12 Dec 2022 16:50:36 +1100 Subject: [PATCH] Avoid warning message in inappropriate logical expression --- R/mergedatasetsbycase.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/mergedatasetsbycase.R b/R/mergedatasetsbycase.R index 207f7b7..a0f0023 100644 --- a/R/mergedatasetsbycase.R +++ b/R/mergedatasetsbycase.R @@ -1722,10 +1722,10 @@ isParsableAsDateTime <- function(text) # See unit tests in test-mergedatasetsbycase.R isConvertibleToDateTime <- function(num) { - missing.indices <- is.na(num) # check if numbers could be seconds from the epoch 1970/1/1 between the # years 1990 and 2050 - num[!missing.indices] >= 631152000 && num[!missing.indices] <= 2524608000 + val.range <- range(num, na.rm = TRUE) + val.range[1] >= 631152000 && val.range[2] <= 2524608000 } isConvertibleToCategorical <- function(variable.type, values, val.attrs,