R-exercises – Shiny Application Layouts solutions part 10

Below are the solutions to these exercises on Shiny Application Layouts.

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title"))
#server.R
function(input, output) {}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1"),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(),
                       mainPanel()),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                       ),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table"),
                           tabPanel("Text"),
                           tabPanel("Header")
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                       ),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table",
                                    h4("Iris"),
                                    tableOutput("table")),
                           tabPanel("Text"),
                           tabPanel("Header")
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {
  output$table <- renderTable({
    iris

  })
}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                         ),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table",
                                    h4("Iris"),
                                    tableOutput("table")),
                           tabPanel("Text",
                                    h4("VText"),
                                    verbatimTextOutput("vtxt")),
                           tabPanel("Header")
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {
  output$table <- renderTable({
    iris

  })

}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                         sliderInput("slider","Slider input:", 1, 100, 50),
                         tags$h5("ActionButton:"),
                         actionButton("action", "Action")),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table",
                                    h4("Iris"),
                                    tableOutput("table")),
                           tabPanel("Text",
                                    h4("VText"),
                                    verbatimTextOutput("vtxt")),
                           tabPanel("Header")
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {
  output$table <- renderTable({
    iris

  })
  output$vtxt <- renderText({
    paste(input$slider)
  })

}

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

#ui.R
library(shiny)
tagList(
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                         sliderInput("slider","Slider input:", 1, 100, 50),
                         tags$h5("ActionButton:"),
                         actionButton("action", "Action")),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table",
                                    h4("Iris"),
                                    tableOutput("table")),
                           tabPanel("Text",
                                    h4("VText"),
                                    verbatimTextOutput("vtxt")),
                           tabPanel("Header",
                                    h1("Header 1"),
                                    h2("Header 2"))
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {
  output$table <- renderTable({
    iris

  })
  output$vtxt <- renderText({
    paste(input$slider)
  })

}

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

install.packages("shinythemes")
library(shinythemes)

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

#ui.R
library(shinythemes)
library(shiny)
tagList(
  themeSelector(),
  navbarPage( "Title",
              tabPanel("Navbar 1",
                       sidebarPanel(
                         sliderInput("slider","Slider input:", 1, 100, 50),
                         tags$h5("ActionButton:"),
                         actionButton("action", "Action")),
                       mainPanel(
                         tabsetPanel(
                           tabPanel("Table",
                                    h4("Iris"),
                                    tableOutput("table")),
                           tabPanel("Text",
                                    h4("VText"),
                                    verbatimTextOutput("vtxt")),
                           tabPanel("Header",
                                    h1("Header 1"),
                                    h2("Header 2"))
                         )
                       )),
              tabPanel("Navbar 2")))
#server.R
function(input, output) {
  output$table <- renderTable({
    iris

  })
  output$vtxt <- renderText({
    paste(input$slider)
  })

}

Please help us to improve R-exercises:

Shaquaria 3 December 2021 at 18:10 on Start Here To Learn R – vol. 1: Vectors, arithmetic, and regular sequencesI absolutely love this book. Although I haven't gotten all the way through it yet, It makes learning R so...
Nicholas 26 November 2021 at 19:17 on Advanced Techniques With Raster Data – Part 3: ExercisesGreat article. My question is less relevant to this article but I was wondering if you can provide an example...
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？

Shiny Application Layouts solutions part 10

Please help us to improve R-exercises:

About Euthymios Kasvikis

Leave a Reply Cancel reply

Main navigation

Please help us to improve R-exercises:

Related exercise sets:

About Euthymios Kasvikis

Reader Interactions

Leave a Reply Cancel reply