R - 日期格式检查

Question

我正在尝试检查给定日期是否采用 dd/mm/yyyy 格式或 R 语言，同时检查它是否是有效日期。我想要以 TRUE 或 FALSE 格式输出，例如

输入:

date<- c('12/05/2016','35/11/2067','12/52/1000')

输出:

TRUE FALSE FALSE

Answer 1

您可以使用这个功能：

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

IsDate(date)
[1]  TRUE FALSE FALSE

代码的原始来源here。

.

Answer 2

你也可以使用 lubridate 包：

library(lubridate)
!is.na(parse_date_time(c('12/05/2016','35/11/2067','12/52/1000'),orders="dmy"))

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

R - 日期格式检查

R - Date format check

r

date-formatting