光沢のある条件付きパネルの条件としてのボタンの値

Question

一度すべて実行されたフォームには「完了」ボタンがあります。ユーザーが「完了」ボタンをクリックすると、フォームの代わりにshinydashboardが表示されます。

これを行うには、2つの条件付きパネルを考えました。この値が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です。