R/app_server.R

In MartaGajewska/testGolemApp: An Amazing Shiny App

#' @import shiny
app_server <- function(input, output,session) {
  # List the first level callModules here
    callModule(mod_app_skeleton_ui, "app_skeleton_uiui_1")
    callModule(mod_tab_one, "tab_oneui_1")
    callModule(mod_tab_two, "tab_twoui_1")
    
    # server for tab 1   
    mpgData <- get_data_tab_1()
    
    formulaText <- reactive({
        paste("mpg ~", input$variable)
    })

    output$caption <- renderText({
        formulaText()
    })
    output$mpgPlot <- renderPlot({
        boxplot(as.formula(formulaText()),
                data = mpgData,
                outline = input$outliers,
                col = "#75AADB", pch = 19)
    })
}