library(googlesheets)
library(dplyr)
library(lubridate)

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