Nothing
context("Test API response columns are renamed correctly")
unnamed_data <- read.table(system.file("extdata", "example_api_data_unnamed.txt", package = "scrobbler"), header = TRUE)
test_renamed_data <- rename_api_response(unnamed_data)
verified_renamed_data <- read.table(system.file("extdata", "example_api_data_renamed.txt", package = "scrobbler"), header = TRUE)
test_that("Rename API table is successful", {
expect_equal(test_renamed_data, verified_renamed_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.