Nothing
context("check-output") # Our file is called "test-check_output.R"
library(testthat) # load testthat package
library(wordpressr) # load our package
# Test whether the output is a data frame
test_that("get_wp_authors() returns a data frame", {
output_table <- get_wp_authors(root_url = 'altmediauncensored.com')
expect_is(output_table, "data.frame")
})
# In reality, our function is more complex and aggregates your input if you have duplicates in your id-time units -- this is why the following two tests were essential for us
## Test whether the output contains the right number of rows
test_that("get_wp_authors() returns a dataframe with 4 columns", {
output_table <- get_wp_authors(root_url = 'altmediauncensored.com')
expect_equal(ncol(output_table), 4)
})
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.