In statcourses/BristolVis: Data visualisation and web applications course

############################################
# LOAD EXTERNAL PACKAGES, SCRIPTS AND DATA #
############################################

library(shiny)
library(ggplot2)
library(BristolVis)

##################
# USER INTERFACE #
##################

ui <- fluidPage(
  titlePanel(title = "Demo of a shiny app"), 

  # Define sidebar layout
  sidebarLayout(
    sidebarPanel(  
      # Define number of observations to plot in the figure
      sliderInput(inputId = "numberofrowsplot",
                  label = "Number of rows to plot in figure",
                  value = 100,
                  min = 50,
                  max = 150),

      # Define number of observations to show in the table
      numericInput(inputId = "numberofrowstable",
                   label = "Number of rows to show in table",
                   value = 10,
                   min = 5,
                   max = 20,
                   step = 5), 

      # Define the variable that is used to colour the points
      selectInput(inputId = "pointcolour",
                  label = "Variable to fill by:",
                  choices = c("sex","diet","status")),

      # Define the plot's title
      textInput(inputId = "titletext",
                label = "Plot title:"),

      h3("About the dataset"),
      p("This dataset, called", em("bmi2,"), "contains 200 observations across 6 variables")
      ),

    mainPanel(
      plotOutput("barPlot"),

      tableOutput("table")

    )
  )
)

##########
# SERVER #
##########

server <- function(input, output) {

  #Create reactive expression to create restricted dataset
  bmi2_plot <- reactive({
    head(x = bmi2,
         n = input$numberofrowsplot)
  }) 

  # Create plot object
  output$barPlot <- renderPlot({

    # Create plot using the restricted dataset
    ggplot(data = bmi2_plot(), aes_string(color = input$pointcolour)) +
      geom_point(aes(x = age, y= bmi)) +
      labs(title = input$titletext)

  })

  # Create table object
  output$table <- renderTable({
    head(x = bmi2,
         n = input$numberofrowstable)
  })

}

#############################
# CALL TO shinyApp FUNCTION #
#############################

shinyApp(ui = ui, server = server)

statcourses/BristolVis documentation built on Jan. 31, 2021, 9:24 p.m.