lubridate::format_ISO8601(lubridate::now())
epoch_now <- lubridate::time_length(
x=`-`(
lubridate::now(tzone="UTC"),
lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")
),
unit="second"
)
epoch_now
epoch_now <-
lubridate::now(tzone="UTC") |>
(`-`)(lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")) |>
lubridate::time_length(unit="second") |>
as.character()
epoch_now
epoch_now <-
lubridate::now(tzone="UTC") |>
lubridate::floor_date("second") |>
(`-`)(lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")) |>
lubridate::time_length(unit="second") |>
as.character()
epoch_now
epoch_now <-
lubridate::now(tzone="UTC") |>
lubridate::floor_date("second") |>
(`-`)(lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")) |>
lubridate::time_length(unit="second") |>
as.character()
# Dataset Path (same as before)
dataset_path_in <- fs::path_abs(
here::here("Shiny_Deepfakes", "data", "tweets.csv")
)
dataset_path_out <- fs::path_abs(
here::here("Shiny_Deepfakes", "app_data", epoch_now, "tweets.csv")
)
fs::dir_create(fs::path_dir(dataset_path_out))
epoch_now
epoch_now <-
lubridate::now(tzone="UTC") |>
lubridate::floor_date("second") |>
(`-`)(lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")) |>
lubridate::time_length(unit="second") |>
as.character()
# Dataset Path (same as before)
dataset_path_in <- fs::path_abs(
here::here("Shiny_Deepfakes", "data", "tweets.csv")
)
dataset_path_out <- fs::path_abs(
here::here("Shiny_Deepfakes", "app_data", epoch_now, "tweets.csv")
)
fs::dir_create(fs::path_dir(dataset_path_out))
epoch_now <-
lubridate::now(tzone="UTC") |>
lubridate::floor_date("second") |>
(`-`)(lubridate::ymd_hms("1970-01-01T00:00:00", tz="UTC")) |>
lubridate::time_length(unit="second") |>
as.character()
# Dataset Path (same as before)
dataset_path_in <- fs::path_abs(
here::here("Shiny_Deepfakes", "data", "tweets.csv")
)
dataset_path_out <- fs::path_abs(
here::here("Shiny_Deepfakes", "app_data", epoch_now, "tweets.csv")
)
fs::dir_create(fs::path_dir(dataset_path_out))
epoch_now
