Nothing
context("Google timezone")
test_that("location is a pair of coordinates",{
expect_error(google_timezone(location = c(144.9841),
timestamp = as.POSIXct("2016-06-05"),
simplify = TRUE,
key = "abc"),
"location must be a vector of a pair of latitude and longitude coordinates")
expect_error(google_timezone(location = "location",
timestamp = as.POSIXct("2016-06-05"),
simplify = TRUE,
key = "abc"),
"location must be a vector of a pair of latitude and longitude coordinates")
})
test_that("timestamp is POSIXct",{
expect_error(google_timezone(location = c(-37.81659, 144.9841),
timestamp = "2016-06-05",
simplify = TRUE,
key = "abc"),
"timestamp must be a single POSIXct object")
})
test_that("language is a single string",{
expect_error(google_timezone(location = c(-37.81659, 144.9841),
timestamp = as.POSIXct("2016-06-05"),
simplify = TRUE,
language = c("en", "fr"),
key = "abc"),
"language must be a single string")
expect_error(google_timezone(location = c(-37.81659, 144.9841),
timestamp = as.POSIXct("2016-06-05"),
simplify = TRUE,
language = 1,
key = "abc"),
"language must be a single string")
})
test_that("simplify if logical", {
expect_error(google_timezone(location = c(-37.81659, 144.9841),
timestamp = as.POSIXct("2016-06-05"),
simplify = "TRUE",
key = "abc"),
"simplify must be logical - TRUE or FALSE")
})
test_that("Timezone download is attempted",{
expect_true(google_timezone(location = c(-37.81659, 144.9841),
timestamp = as.POSIXct("2016-06-05"),
simplify = TRUE,
key = "abc")$errorMessage == "The provided API key is invalid.")
})
test_that("invalid timestamp", {
expect_error(google_timezone(location = c(-37.81659, 144.9841),
timestamp = c(as.POSIXct("2016-06-05"), as.POSIXct("2016-06-06")),
simplify = TRUE,
key = "abc"))
})
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.