Nothing
#' Run all unit tests for this project.
#'
#' This function will run all of the \code{testthat} style unit tests
#' for the current project that are defined inside of the \code{tests}
#' directory. The tests will be run in the order defined by the filenames
#' for the tests: it is recommend that each test begin with a number
#' specifying its position in the sequence.
#'
#' @return No value is returned; this function is called for its side effects.
#'
#' @export
#'
#' @examples
#' library('ProjectTemplate')
#'
#' \dontrun{load.project()
#'
#' test.project()}
test.project <- function()
{
project_name <- .stopifnotproject("Change to a valid ProjectTemplate directory and run test.project() again.")
load.project()
require.package('testthat', attach = TRUE)
files = dir('tests', pattern = "[.][rR]$", full.names = TRUE)
invisible(lapply(files, testthat::test_file, env = environment()))
}
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.