Nothing
# setup for tests
# skip_on_cran()
# # results used in test_get_measurements.R
# result_01 <- get_measurements(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 2)
#
# result_02 <- get_measurements(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 11, parse_datetime = FALSE)
#
# result_08 <- get_measurements(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 7, parse_json = FALSE)
# # results used in test_utils.R
# url_01 <- paste0(.get_cumulocity_base_url(),
# "/inventory/managedObjects?fragmentType=c8y_IsDevice",
# collapse = "")
#
# result_03 <- httr::GET(url = url_01, httr::authenticate("foo", "bar"))
# cont_03 <- httr::content(result_03, "text")
# cont_parsed_03 <- jsonlite::fromJSON(cont_03)
# # results used in test_get_devices.R
# result_04 <- get_devices(page_size = 2)
# result_05 <- get_devices(page_size = 10, parse_datetime = FALSE)
# result_09 <- get_devices(page_size = 3, parse_json = FALSE)
# # results used in test_get_events.R
# result_06 <- get_events(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 2
# )
# result_07 <- get_events(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 4, parse_datetime = FALSE
# )
# result_10 <- get_events(
# device_id = .get_cumulocity_device_id(),
# date_from = "2019-09-30T20:00:00Z",
# num_rows = 7, parse_json = FALSE
# )
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.