epi_clean_cond_date: Check if column is date using lubridate

In AntonioJBT/episcout: Quickly Clean, Explore and Visualise Large Epidemiological Datasets

Check if column is date using lubridate

Description

Check if column is date (TRUE). Useful when extracting columns from a large data frame using dplyr (ie get all date type columns)

Usage

epi_clean_cond_date(col = NULL)

Arguments

col	column header. This will be passed to lubridate::is.Date(col) and lubridate::is.POSIXt(col)

Value

boolean TRUE/FALSE indicating whether column passed is type date

Author(s)

Antonio Berlanga-Taylor <https://github.com/AntonioJBT/episcout>

See Also

epi_clean_cond_numeric, epi_clean_class_to_factor, epi_clean_count_classes, is.character, is.factor.

Examples

## Not run: 
set.seed(12345)
n <- 20
df <- data.frame(
  var_id = rep(1:(n / 2), each = 2),
var_to_rep = rep(c('Pre', 'Post'), n / 2),
  x = rnorm(n),
  y = rbinom(n, 1, 0.50),
  z = rpois(n, 2)
)
df_date <- df
df_date$date_col <- seq(as.Date("2018/1/1"), by = "year", length.out = 5)
df_date %>% select_if(~ epi_clean_cond_date(.))
epi_clean_cond_date(df_date[[2]]) # should be 'FALSE'
epi_clean_cond_date(df_date[, 'date_col']) # should be 'TRUE'

## End(Not run)

AntonioJBT/episcout documentation built on Dec. 1, 2024, 4:07 a.m.