inst/apps/basic_histogram/ui.R

In Auburngrads/teachingApps: Apps for Teaching Statistics, R Programming, and Shiny App Development

ui = fluidPage(theme = add_theme(getShinyOption('theme')), 
          add_css(),
               
sidebarLayout( 
  sidebarPanel(width = 5,
     shinyAce::aceEditor(fontSize = 16, 
                         wordWrap = T,
                         outputId = "code", 
                         mode = "r", 
                         theme = "github",
                         autoComplete = 'live',
                         height = '500px',
                         value = 
"set.seed(NULL)

x <- rbinom(500,size = 15,p = .25)

hist(x, 
     col = 1,
     border = 'orange',
     breaks = 0:11,
     main = '',
     probability = T,
     las = 1)"),

     actionButton("eval", "Evaluate")),
        
     mainPanel(plotOutput("output", height = '600px'), width = 7)))