# NOT RUN {
dates <- seq.Date(lubridate::today() - 30, lubridate::today(), by = "1 day")
data <- GetSMNData(dates, type = "daily", bar = TRUE)
library(ggplot2)
ggplot(subset(data, station == "BASE BELGRANO II"),
aes(date, (tmax + tmin)/2)) +
geom_line()
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab