inst/doc/deploy.R

In oolong: Create Validation Tests for Automated Content Analysis

## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
  )
set.seed(46709394)

## -----------------------------------------------------------------------------
library(oolong)
wsi_test <- wsi(abstracts_keyatm)
wsi_test

## -----------------------------------------------------------------------------
export_oolong(wsi_test, dir = "./wsi_test", use_full_path = FALSE)

## -----------------------------------------------------------------------------
fs::dir_tree("./wsi_test")

## ---- eval = FALSE------------------------------------------------------------
#  library(shiny)
#  runApp("./wsi_test")

## ---- include = FALSE---------------------------------------------------------
wsi_test <- readRDS(system.file("extdata", "wsi_test.RDS", package = "oolong"))

## ---- echo = FALSE------------------------------------------------------------
revert_oolong(wsi_test, system.file("extdata", "hadley.RDS", package = "oolong"))

## ---- include = FALSE---------------------------------------------------------
unlink("./wsi_test", recursive = TRUE)