## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(eval = FALSE)

## -----------------------------------------------------------------------------
# library(glasstabs)
# 
# if (interactive()) {
#   runGlassExample("connect-workflow")
# }

## -----------------------------------------------------------------------------
# rsconnect::writeManifest(appDir = "inst/examples/connect-workflow")

## -----------------------------------------------------------------------------
# rsconnect::deployApp(
#   appDir = "inst/examples/connect-workflow",
#   appName = "glasstabs-connect-workflow",
#   appTitle = "glasstabs Connect Workflow"
# )

## -----------------------------------------------------------------------------
# example_dir <- system.file("examples", "connect-workflow", package = "glasstabs")
# file.copy(example_dir, "connect-workflow", recursive = TRUE)
# 
# rsconnect::deployApp(
#   appDir = "connect-workflow",
#   appName = "glasstabs-connect-workflow",
#   appTitle = "glasstabs Connect Workflow"
# )