반짝이는 조건부 조건의 버튼 값

Question

한번 수행 한 모든 작업에는 "완료"버튼이있는 양식이 있습니다. 사용자가 "완료"버튼을 클릭하면 양식 대신 shinydashboard를 표시하려고합니다.

이렇게하려면 두 개의 조건부 패널을 생각하고 버튼에 값이 있으므로이 값이 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") 
)) 

어떤 생각을 왜 버튼의 값을 고려하지 않습니다 :

전체 코드는 그래서 주요 아이디어는 이것이다 재현 너무 커서?

Answer 1

시도 :

이

conditionalPanel(condition = "input.buton == 0", p("I'm a form")), 
conditionalPanel(condition = "input.buton > 0", p("I'm a dashboard")) 

조건 인수가 javascript expression이다.