# de_tha_d <- read.csv('de_tha_d.csv')
# de_tha_d <- de_tha_d[,-c(1)]
#
# de_tha_d$time <- ymd(de_tha_d$time)
#
#
# de_tha_h <- read.csv('de_tha_h.csv')
# de_tha_h <- de_tha_h[,-c(1)]
#
# de_tha_h$time <- ymd_hm(de_tha_h$time)
#
# usethis::use_data(de_tha_d,overwrite = TRUE)
# usethis::use_data(de_tha_h,overwrite = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.