# NOT RUN {
# Retrieve public rain data for a month from CliFlo (at Reefton Ews station)
reefton_rain = cf_query(cf_user(), cf_datatype(3, 1, 1), cf_station(),
start_date = "2012-08-01-00",
end_date = "2012-09-01-00")
class(reefton_rain) # cfRain object
# Plot the rain data using the defaults
plot(reefton_rain)
# Change the ggtheme and enlarge the text
library(ggplot2) # for element_text()
plot(reefton_rain, ggtheme = "bw", text = element_text(size = 16))
# Save the plot as a png to the current working directory
library(ggplot2) # for ggsave()
ggsave("my_rain_plot.png")
# }
Run the code above in your browser using DataLab