library(testthat)
library(flowWorkspace)
library(data.table)
library(utils)
library(dplyr)
dataDir <- system.file("extdata",package="flowWorkspaceData")
resultDir <- system.file("tests/expect_result",package="flowWorkspace")
test_package("flowWorkspace")
#test_file("/home/wjiang2/rglab/workspace/flowWorkspace/inst/tests/test-archive.R")
#test_file("/home/wjiang2/rglab/workspace/flowWorkspace/inst/tests/test-parseWorkspace.R")
#test_file("/home/wjiang2/rglab/workspace/flowWorkspace/inst/tests/InternalTestSuite.R")
#test_file("/home/wjiang2/rglab/workspace/flowWorkspace/inst/tests/GatingML-parsing-testSuite.R")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.