Question

我代码中的输入要求输入日期，我希望用户以yyyy / mm / dd输入。输入日期后，我要检查日期是否实际上是该格式，如果不是，则将要求用户再次输入日期。

我找到了一个应在此处检查的函数：https://gist.github.com/micstr/69a64fbd0f5635094a53

但是，当我将此函数添加到代码中并输入错误的日期格式（“ 2016/18/24”）时，此函数的返回结果不是FALSE而是TRUE。

代码如下：

library(lubridate)
IsDate <- function(mydate) {
  tryCatch(!is.na(as.Date(mydate, "",tryFormats = "%Y/%m/%d")),  
           error = function(err) {FALSE})  
}

date1<- readline("Enter date (Format: yyyy/mm/dd):")

check <- IsDate(date1)
while(check == FALSE){
  otp_date <- readline("Date in wrong format. Enter again:")
  check <- IsDate(date1)
}
date1<- as.Date(date1)

我该如何调整代码以解决我的问题？

Answer 1

也许改用chron软件包？


IsDate <- function(mydate) {
  tryCatch(!is.na(suppressWarnings(chron(mydate, format = "y/m/d"))),  
           error = function(err) {FALSE})  
}

> IsDate("02/02/2016")
[1] FALSE

> IsDate("2016/18/24")
[1] FALSE

> IsDate("2019/10/03")
[1] TRUE

Answer 2

请勿使用正则表达式。使用日期库。我最喜欢的一种无需格式字符串即可解析日期（和日期时间）：

R> library(anytime)
R> anydate("2016/18/24")
[1] NA
R> anydate("2016/08/24")
[1] "2016-08-24"
R>

因此，如果您可以追溯到某个日期，那么一切都很好。如果您收到NA，则有问题。

Answer 3

这是矢量化的基本R函数，可与NA一起使用，并且可以安全地防止SQL注入：

is_date = function(x, format = NULL) {
  formatted = try(as.Date(x, format), silent = TRUE)
  is_date = as.character(formatted) == x & !is.na(formatted)  # valid and identical to input
  is_date[is.na(x)] = NA  # Insert NA for NA in x
  return(is_date)
}

让我们尝试一下：

> is_date(c("2020-08-11", "2020-13-32", "2020-08-11; DROP * FROM table", NA), format = "%Y-%m-%d")
## TRUE FALSE FALSE    NA

如何检查输入的日期是否采用yyyy / mm / dd格式？

3 个答案: