Nothing
library("testthat")
library('dplyr')
library('plyr')
data("example_mtc_device")
#===============================================================================
context("getData - MTCCycle")
device_data = getData(example_mtc_device)
expected_device_data = (ldply((example_mtc_device@data_item_list), function(x) getData(x)))
names(expected_device_data)[1] = "data_item_name"
expect_equal(expected_device_data, device_data)
#===============================================================================
context("getDataItem - MTCCycle")
device_data = getData(example_mtc_device)
expected_device_data = (ldply((example_mtc_device@data_item_list), function(x) getData(x)))
names(expected_device_data)[1] = "data_item_name"
expect_equal(expected_device_data, device_data)
#===============================================================================
context("merge - MTCCycle")
merged_device = merge(example_mtc_device,"load")
names(merged_device) = c("timestamp","xload","yload")
merged_device = merged_device[1:2,]
expected_merged_data = data.frame(timestamp = as.POSIXct(c("2014-07-15 07:04:25.608",
"2014-07-15 07:04:29.983"),tz = 'UTC'),
xload = c(-8,-2), yload = c(-29,-29))
expect_equal(merged_device, expected_merged_data)
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.