library(googlesheets) library(dplyr) library(lubridate) gsh = gs_title("Rome-Siracusa-vacations") vdata = gsh %>% gs_read() vdata$ts = mdy(vdata$Date)