R/crispRdesignRUI.R

Defines functions crispRdesignRUI

Documented in crispRdesignRUI

#' @export

##crispRdesignRUI
crispRdesignRUI <- function(max_gtf_size = 150) {
  # Saves current shiny.maxRequestSize option and prepares to reset it when the function exits
  original_shinymaxrequest <- options("shiny.maxRequestSize")
  on.exit(options(original_shinymaxrequest))
  ## Increases the maximum file size that can be uploaded to Shiny to accomadate .gtf files
  options(shiny.maxRequestSize=max_gtf_size*1024^2)
  # Prepares and runs RunShiny.R script containing the crispRdesignR User Interface
  app_path <- system.file("apps", "RunShiny.R", package = "crispRdesignR")
  shiny::runApp(app_path)
}

Try the crispRdesignR package in your browser

Any scripts or data that you put into this service are public.

crispRdesignR documentation built on Jan. 13, 2021, 4:46 a.m.