R/make_tidy_datetime_filename.R

In nelsonroque/ruf: An R Package of Random, but Useful Functions (RUF)

#' ruf

#' @name make_tidy_datetime_filename
#' @param datetime class: POSIXct
#' @param timezone class: string
#' @param prefix class: string
#' @param suffix class: string
#' @import tidyverse
#' @examples
#' make_tidy_datetime(datetime=NA, timezone="UTC")
#' @export
make_tidy_datetime_filename <- function(datetime=Sys.time(), timezone="UTC", prefix="", suffix="") {
	dt <- as.POSIXlt(datetime, timezone, "%Y_%m_%dT%H_%M_%S") %>% ruf::make_tidy_colnames()
	dt <- paste0(prefix, dt, suffix)
	return(dt)
}