【发布时间】:2014-12-22 17:29:22
【问题描述】:
在这个闪亮的应用程序中,我只需要允许用户勾选一个复选框。有没有办法做到这一点?
ui.R
library(shiny)
shinyUI(fluidPage(
titlePanel("abc"),
sidebarLayout(
sidebarPanel(
checkboxGroupInput("choice", "What will you like to see?",
choices=c("red","green")),
conditionalPanel(
condition = "input.choice == 'red'",
sliderInput("slider1","slide",min=0,max=100,value=100,step=1,animate=TRUE)),
conditionalPanel(
condition="input.choice=='green'",
selectInput("choice","Select", c("a","b","c")),
sliderInput("slider2","slide",min=0,max=100,value=100,step=1,animate=TRUE))
),
mainPanel(
"abc"
)
)
))
服务器.R
shinyServer(function(input, output) {
}
)
【问题讨论】: