R/convenience.R

Defines functions flushShinyApp showData showServer showUI

Documented in flushShinyApp showData showServer showUI

showUI <- function()
{
  .GlobalEnv$.shinier$ui
}

showServer <- function()
{
  .GlobalEnv$.shinier$se
}

showData <- function()
{
  for (i in names(.GlobalEnv$.shinier$data)) {
    cat("\n\nFound injected data:", i, "\n")
    print(str(.GlobalEnv$.shinier$data[[i]]))
  }
}

flushShinyApp <- function()
{
  foo <- readline("Are you sure you want to flush (Y/N)?")
  if (foo == "Y") {
    .GlobalEnv$.shinier <- NULL
  } else { cat("Okay, not flushing.\n") }
}
jayemerson/ShinyHelper documentation built on May 17, 2017, 11:52 a.m.