R/script.R

In royfrancis/pophelperShiny: Interactive shiny GUI around pophelper R package

# POPHELPER SHINY

#' @title Launch interactive pophelper shiny application
#' @description Launches interactive shiny session in the browser.
#' @param display.mode Display mode. See \code{\link{runApp}}.
#' @param launch.browser Logical indicating if the app is to be launched in the system browser.
#' @param ... Further arguments are passed to \code{\link{runApp}}.
#' @return This function does not return anything
#' @seealso \code{\link{runApp}}
#' @examples
#' \dontrun{
#' library(pophelperShiny)
#' runPophelper()
#' }
#' @import ggplot2
#' @import highcharter
#' @import magrittr
#' @import pophelper
#' @importFrom shiny actionButton br checkboxInput column conditionalPanel div downloadButton downloadHandler eventReactive fileInput fluidRow fluidPage h1 h2 h3 h4 h5 h6 helpText hr HTML htmlOutput imageOutput incProgress inputPanel isolate mainPanel numericInput observe observeEvent Progress reactive reactiveValues renderImage renderPlot renderPrint renderTable renderText renderUI req runApp selectInput selectizeInput setProgress sidebarLayout sidebarPanel sliderInput submitButton tabPanel tabsetPanel tags tagList textInput titlePanel uiOutput updateActionButton updateCheckboxInput updateNumericInput updateSelectInput updateSelectizeInput updateSliderInput updateTextInput validate verbatimTextOutput wellPanel withProgress
#' @importFrom colourpicker colourInput updateColourInput
#' @importFrom DT renderDataTable dataTableOutput
#' @importFrom gridExtra grid.arrange
#' @importFrom htmlwidgets JS
#' @importFrom RColorBrewer brewer.pal
#' @importFrom shinyAce aceEditor
#' @importFrom shinyBS bsTooltip
#' @importFrom shinythemes shinytheme
#' @importFrom shinyWidgets pickerInput
#' @importFrom tidyr gather spread
#' @importFrom viridisLite viridis inferno magma plasma
#' @importFrom writexl write_xlsx
#' @export
#' 
runPophelper <- function(display.mode="normal",launch.browser=TRUE,...) {
  appDir <- system.file("app", package="pophelperShiny")
  if (appDir == "") {
    stop("Could not find app directory. Try re-installing `pophelperShiny`.", call. = FALSE)
  }
  
  shiny::runApp(appDir,display.mode=display.mode,launch.browser=launch.browser,...)
}