dd <- read.csv("data-raw/global_temp/yearly")
library(tidyverse)
yearly <- janitor::clean_names(dd)
save(yearly, file = "data/yearly.rda")
dd <- read.csv("data-raw/global_temp/monthly_csv.csv")
dd <- dd %>%
mutate(Date = lubridate::ymd(Date))
monthly <- janitor::clean_names(dd)
save(monthly, file = "data/monthly.rda")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.