2
我成功启动了以下代码,输出RadioButton的两个选项:“否”和“是”。但是,我想添加第三个单选按钮,将其称为“全部”,在一个输出中显示“否”和“是”的值。R Shiny:“All”Radio Button
我该如何去做这件事?
library(shiny)
library(ggplot2)
library(dplyr)
bcl <- read.csv("testd10Apr2017V4.csv", sep = ",", stringsAsFactors = FALSE)
ui <- fluidPage(
titlePanel("Attrition VS Age"),
sidebarLayout(
sidebarPanel(
# sliderInput("priceInput", "Price", 0, 100, c(25, 40), pre = "$"),
radioButtons("typeInput", "Type",
choices = c("No", "Yes", "All"),
selected = "Yes", inline = TRUE, width = "200px"),
hr(),
helpText("Attrition no means there is no attrition")
# selectInput("countryInput", "Country",
# choices = c("CANADA", "FRANCE", "ITALY"))
),
mainPanel(
plotOutput("coolplot")
# br(), br(),
# tableOutput("results")
)
)
)
server <- function(input, output) {
output$coolplot <- renderPlot({
filtered <-
bcl %>%
filter(#Price >= input$priceInput[1],
#Price <= input$priceInput[2],
Type == input$typeInput
# Country == input$countryInput
)
g <- ggplot(filtered, aes(Age)) +
geom_histogram(color = "white", fill = "maroon")
g + ylim(0,30) + xlim(0,60)
g
})
}
shinyApp(ui = ui, server = server)