Nothing
start_date <- date <- lubridate::as_date("2020-05-21")
end_date <- start_date + lubridate::days(7)
if (interactive()) {
.fitbitr_token <<- generate_fitbitr_token()
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.