smn_to_gsheet

pacman::p_load(tidyverse, googlesheets4)
gs4_auth(email = "[email protected]")
gs4_find("my_sheet")
#copiar id y establecer acceso
my_sheet <- gs4_get("1b3Zu9CT-B1lHVwkl7wLS_njDQyvwRFYnw_H-OjyO7LA")

#intervalo que deseo los datos
dates <- seq.Date(lubridate::dmy("1-8-2020"), 
                  lubridate::dmy("20-3-2021"), by = "1 day")
                  
metR::GetSMNData(dates, type = "daily", bar = TRUE) %>%
  filter(station == "TANDIL AERO") %>% 
  write_sheet(ss=my_sheet, sheet = "tandil")