R-exercises – Descriptive Analytics-Part 6: Interactive dashboard ( 1/2) Solutions

Below are the solutions to these exercises on interactive dashboarding.
In case, you feel like you need the full script, you can find it here.

Learn more about Shiny in the online course R Shiny Interactive Web Apps – Next Level Data Visualization. In this course you will learn how to create advanced Shiny web apps; embed video, pdfs and images; add focus and zooming tools; and many other functionalities (30 lectures, 3hrs.).

###############
#             #
# Exercise 1  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis")))

###############
#             #
# Exercise 2  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel()))

###############
#             #
# Exercise 3  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel(
    selectInput("fun",
                h3("Select functions"),
                list("Summary" = 1, 
                     "Structure" = 2, 
                     "Head" = 3,
                     "Tail"=4,"Names"=5),selected = 1 ))))

###############
#             #
# Exercise 4  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel(
    #3
    selectInput("fun",
                h3("Select functions"),
                list("Summary" = 1, 
                     "Structure" = 2, 
                     "Head" = 3,
                     "Tail"=4,"Names"=5),selected = 1 ),
    selectInput("me",
              h3("Select measure"),
              list("Mean" = 1, 
                   "Median" = 2, 
                   "Max" = 3,
                   "Min"=4,"Range"=5,"Standard  Deviation"=6),selected = 1 ))))

###############
#             #
# Exercise 5  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel(
    selectInput("fun",
                h3("Select functions"),
                list("Summary" = 1, 
                     "Structure" = 2, 
                     "Head" = 3,
                     "Tail"=4,"Names"=5),selected = 1 ),
    selectInput("me",
              h3("Select measure"),
              list("Mean" = 1, 
                   "Median" = 2, 
                   "Max" = 3,
                   "Min"=4,"Range"=5,"Standard  Deviation"=6  ui),selected = 1 ),
    selectInput("var",
              h3("Select variable"),
              list("ActualElapsedTime" = "ActualElapsedTime", 
                   "CRSElapsedTime" = "CRSElapsedTime", 
                   "AirTime" = "AirTime",
                   "ArrDelay"="ArrDelay","DepDelay"="DepDelay","TaxiIn"="TaxiIn","TaxiOut"="TaxiOut"),selected = "ActualElapsedTime" ))))

###############
#             #
# Exercise 6  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel(
    selectInput("fun",
                h3("Select functions"),
                list("Summary" = 1, 
                     "Structure" = 2, 
                     "Head" = 3,
                     "Tail"=4,"Names"=5),selected = 1 ),
    selectInput("me",
              h3("Select measure"),
              list("Mean" = 1, 
                   "Median" = 2, 
                   "Max" = 3,
                   "Min"=4,"Range"=5,"Standard  Deviation"=6  ui),selected = 1 ),
    selectInput("var",
              h3("Select variable"),
              list("ActualElapsedTime" = "ActualElapsedTime", 
                   "CRSElapsedTime" = "CRSElapsedTime", 
                   "AirTime" = "AirTime",
                   "ArrDelay"="ArrDelay","DepDelay"="DepDelay","TaxiIn"="TaxiIn","TaxiOut"="TaxiOut"),selected = "ActualElapsedTime" )),
  mainPanel(tabsetPanel())))

###############
#             #
# Exercise 7  #
#             #
###############

ui <- fluidPage(pageWithSidebar(
  headerPanel("Descriptive Analysis"),
  sidebarPanel(
    selectInput("fun",
                h3("Select functions"),
                list("Summary" = 1, 
                     "Structure" = 2, 
                     "Head" = 3,
                     "Tail"=4,"Names"=5),selected = 1 ),
    selectInput("me",
              h3("Select measure"),
              list("Mean" = 1, 
                   "Median" = 2, 
                   "Max" = 3,
                   "Min"=4,"Range"=5,"Standard  Deviation"=6  ui),selected = 1 ),
    selectInput("var",
              h3("Select variable"),
              list("ActualElapsedTime" = "ActualElapsedTime", 
                   "CRSElapsedTime" = "CRSElapsedTime", 
                   "AirTime" = "AirTime",
                   "ArrDelay"="ArrDelay","DepDelay"="DepDelay","TaxiIn"="TaxiIn","TaxiOut"="TaxiOut"),selected = "ActualElapsedTime" )),
  mainPanel(tabsetPanel(tabPanel("Content",verbatimTextOutput("cont")),
    tabPanel("Measures",verbatimTextOutput("meas"))))))

###############
#             #
# Exercise 8  #
#             #
###############

server <- function(input, output) {
  output$cont <- renderPrint({
    if (input$fun == 1 ){
      print(summary(flights))
    }
    else if (input$fun == 2 ){
      print(str(flights))
    }
    else if (input$fun == 3 ){
      print(head(flights))
    }
    else if (input$fun == 4 ){
      print(tail(flights))
    }
    else {
      print(names(flights))
    }
  })}

###############
#             #
# Exercise 9  #
#             #
###############

server <- function(input, output) {
  output$cont <- renderPrint({
    if (input$fun == 1 ){
      print(summary(flights))
    }
    else if (input$fun == 2 ){
      print(str(flights))
    }
    else if (input$fun == 3 ){
      print(head(flights))
    }
    else if (input$fun == 4 ){
      print(tail(flights))
    }
    else {
      print(names(flights))
    }
  })
  output$meas <- renderPrint({
    if (input$me == 1 ){
      print(mean(flights[[input$var]],na.rm = TRUE))
    }
    else if (input$me == 2 ){
      print(median(flights[[input$var]],na.rm = TRUE))
    }
    else if (input$me == 3 ){
      print(max(flights[[input$var]],na.rm = TRUE))
    }
    else if (input$me == 4 ){
      print(min(flights[[input$var]],na.rm = TRUE))
    }
    else if (input$me == 5 ){
      print(range(flights[[input$var]],na.rm = TRUE))
    }
    else{
      print(sd(flights[[input$var]],na.rm = TRUE))
    }
  })
  }

###############
#             #
# Exercise 10 #
#             #
###############

shinyApp(ui = ui, server = server)

Please help us to improve R-exercises:

Danitto 31 October 2022 at 17:51 on Vectors and FunctionsHow can someone go about this one? Create a function that standardizes the performance of students in an exam test....
Marc 17 October 2022 at 08:25 on Advanced Techniques With Raster Data – Part 3: ExercisesThank you so much for this awesome tutorial. In relation to the GAM + OK of the residuals, what about...
Additive Manufacturing 13 June 2022 at 13:16 on Bioinformatics Tutorial with Exercises in R (part 1)Great informative post about biostrings exercises. Thanks for sharing with us.
Fabio 6 June 2022 at 16:44 on List exercises: solutionsThanks a lot for your exercises.
AE 6 May 2022 at 14:05 on Start Here To Learn R – vol. 1: Vectors, arithmetic, and regular sequencesI found the book very useful. I think it should be more easier at the start because there are many...

Descriptive Analytics-Part 6: Interactive dashboard ( 1/2) Solutions

Please help us to improve R-exercises:

About Vasileios Tsakalos

Leave a Reply Cancel reply

Main navigation

Please help us to improve R-exercises:

Related exercise sets:

About Vasileios Tsakalos

Reader Interactions

Leave a Reply Cancel reply