Nothing
context("Transform long table into wide table (rtry_trans_wider)")
test_that("basic test", {
df <- data.frame(
Country = c("DE", "US", "DE", "UK", "UK", "DE"),
Year = c("2010", "2010", "2011", "2011", "2012", "2013"),
Count = c(10, 11, 12, 12, 13, 14)
)
df_wider <- rtry_trans_wider(df, names_from = "Year", values_from = "Count")
expect_equal(class(df_wider), c("tbl_df", "tbl", "data.frame"))
expect_equal(ncol(df_wider), 5)
expect_equal(nrow(df_wider), 3)
})
test_that("rtry_trans_wider handles empty argument", {
message = "Please specify the input data for transforming from long table to wide table."
expect_message(rtry_trans_wider(), message)
})
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.