R shiny：論理演算子を使ってnumericInputをテストしてください

Question

光沢のあるアプリでは数値を入力できます（numericInput）。

：メソッドは数が1に等しい場合、それは1のままいることを確認しますが、他のすべてのケースでなければならない（！X = 1）変数は、 server.rに0

に設定する必要がありますで

... checkNumber=reactive({ if(!is.null(input$data)){ output$n_insertNumber<-renderUI({ if(!is.null(input$data)){ numericInput("number", "Number", value = 8) } }) x<-input$number if (x!=1){x==0} } }) ... 

ui.r：

...  
uiOutput("n_insertNumber"), 
... 

出力：

警告：if：引数の長さがゼロのエラー

誰かが解決策を見つける手助けをすることができますか？ありがとう！

Answer 1

この例のアプリケーションでは、numericInputウィジェットで数値を入力し、それをサーバーに送信し、反応性の高い環境でテストを行います。その結果は1または0であり、Variable()でアクセスできます。

---

library(shiny) 

ui <- shinyUI(fluidPage(

    titlePanel("Example"), 

    sidebarLayout(
     sidebarPanel(
     numericInput("number", "Number", value = 8) 
    ), 

     mainPanel(
     verbatimTextOutput("n_insertNumber") 
    ) 
    ) 
)) 

server <- shinyServer(function(input, output) { 

    Variable <- reactive({ 
    ifelse(test = input$number == 1, yes = 1, no = 0) 
    }) 

    output$n_insertNumber <- renderPrint({ 
    Variable() 
    }) 
}) 


shinyApp(ui = ui, server = server)