Nothing
context("hydro")
y <- 2017
test_that("hydro works!", {
x <- hydro("daily", year = y)
x <- hydro("monthly", year = y)
x <- hydro("semiannual_and_annual", year = y, value = "H")
x <- hydro("semiannual_and_annual", year = y, value = "Q")
x <- hydro("semiannual_and_annual", year = y, value = "T")
x <- hydro("semiannual_and_annual", year = y, coords = TRUE)
x <- hydro("semiannual_and_annual", year = y, col_names = "full")
x <- hydro("semiannual_and_annual", year = y, coords = TRUE, col_names = "full")
x <- hydro("semiannual_and_annual", year = y, col_names = "polish")
x <- hydro("semiannual_and_annual", year = y, coords = TRUE, col_names = "polish")
x <- hydro("semiannual_and_annual", year = y, station = "BOGUSÅAW")
x2 <- hydro("semiannual_and_annual", year = y, station = 149180020)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.