R/some_data.R

In jacob-ogre/open.cpu.test:

#' A basic data frame
#' @export
some_data <- function() {
  data.frame(
    v1 = c(1,2,3,4,5),
    v2 = c("a", "b", "c", "d", "e"),
    stringsAsFactors = FALSE
  )
}

#' Turn the table into HTML
#' @export
a_table <- function() {
  htmlTable::htmlTable(some_data())
}