library(shiny)
library(tidyverse)
Data <- tribble(~Names,~Values,
"John" ,50,
"Andy", 20,
"Sam", 30 )
ui <- fluidPage(
titlePanel (""),
sidebarLayout(
sidebarPanel( (""),
selectInput("Names","Name",choices = c(Data$Names),
selectize = FALSE, multiple = TRUE, selected = "John"),
radioButtons("Button", "Do you want to display the chart",
list("Yes","No"),"") ) ,
mainPanel(
tabsetPanel(type="tab",
tabPanel("Histogram", plotOutput("myhist")),
tabPanel("Data", tableOutput("mydata"))
) ) ) )
server <- function(input, output) {
observe({
if(req(input$Button) == 'Yes'){
output$myhist <- renderPlot({
barplot(Data$Values[Data$Names %in% req(input$Names)], xlab = "Count", names = input$Names) }
)
output$mydata<-NULL
} else { output$mydata <- renderTable({
subset(Data, Data$Names == req(input$Names))
})
output$myhist <-NULL} }
) }
shinyApp(ui, server)