knitr::opts_chunk$set(echo = TRUE) library(epiuf)
df <- data.frame(date1 = c("2022-05-02", "2022-05-05","2022-05-08", "2022-05-10", "2022-05-12", "2022-05-10", "2022-05-19", "2022-05-25") ,date2 = c("2022-05-02", "2022-05-05","2022-05-08", "2022-05-10", "2022-05-12", NA_character_, NA_character_, NA_character_)) df$date1 = as.Date(df$date1) df$date2 = as.Date(df$date2)
isoYearWeek(df$date1, weekformat="-W") isoYearWeek(df$date2, weekformat="-W")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.