# NOT RUN {
lcd(station = "01338099999", year = "2017")
lcd(station = "01338099999", year = "2015")
lcd(station = "02413099999", year = "2009")
lcd(station = "02413099999", year = "2001")
# pass curl options
lcd(station = "02413099999", year = "2002", verbose = TRUE)
# clean up columns
w <- lcd(station = "01338099999", year = "2017")
w
lcd_cleanup(w)
# }
Run the code above in your browser using DataLab