我有一个表格,一旦所有表演都有一个"完成"按钮。一旦用户点击了那个"完成"按钮,我想显示而不是表格,shinydashboard。
为此,我想到了两个conditionalPanel,并且由于按钮具有值,如果此值为0,则显示表单并以其他方式显示shinydashboard。我的问题是条件不起作用。
整个代码太大而无法重现,所以主要的想法是:
#server.R
library(shiny)
shinyServer(function(input, output) {
output$frontEnd <- renderUI(
fluidPage(
input$buton,
conditionalPanel("input$buton == 0",p("I'm a form")),
conditionalPanel("input$buton > 0", p("I'm a dashboard"))
)
)
})
#UI.r
library(shiny)
shinyUI(fluidPage(
# Application title
actionButton("buton","click me"),
htmlOutput("frontEnd")
))
任何想法为什么不采用按钮的价值?
答案 0 :(得分:3)
尝试:
conditionalPanel(condition = "input.buton == 0", p("I'm a form")),
conditionalPanel(condition = "input.buton > 0", p("I'm a dashboard"))
条件参数是javascript expression。