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:

Lina 24 August 2021 at 08:45 on How to Use KableExtra and RMarkdown to Create Tables in PDF DocumentsHi I am trying to add three level of headings above the table in r markdown pdf. Can you please...
Doris 6 July 2021 at 01:03 on Basic Time-Series Hydro-logical Data Analysis:Exercises (Part 1)Good afternoon, thank you very much for your blog. Please, I have a query: I am preparing 4 Precipitation matrices,...
Vergil 23 June 2021 at 06:45 on Examining Data ExercisesHello, could you tell me where I can find the reference answers to the exercises？
Manuel Leiva 17 June 2021 at 22:17 on How to Use Environmental Data With RopenaqHi, i try to fallow your example and have the next error (countriesTable <- aq_countries()) data frame with 0 columns...
faef 30 May 2021 at 11:28 on Regular Expressions Exercises – Part 1fff

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