同じUIをもう一度やり直してください

Question

私は2つのアクションボタンを備えたこのシンプルな光沢のあるアプリを持っています。 「レンダー」ボタンはスライダ入力コントロールをレンダリングし、「削除」ボタンは同じスライダ入力を削除します。これはうまく動作しますが、同じスライダー入力を再レンダリングしようとすると、2回目は機能しません。どのようなアイデアや説明は、コードに間違っている可能性がありますか？

これはコードです：

ui <- fluidPage(
      actionButton("render", "Render"), 
      actionButton("remove", "Remove"), 
      uiOutput("moreControls") 
    ) 

    server <- function(input, output) { 
      observeEvent(input$render, { 
        if (input$render > 0) { 
          output$moreControls <- renderUI({ 
            tagList(
              sliderInput("n", "N", 1, 1000, 500) 
            ) 
          })  
        } 
      }) 
      observeEvent(input$remove, { 
        if (input$remove > 0) { 
          removeUI(
            selector = "div[id='moreControls']" 
          ) 
        } 
      }) 

    } 
    shinyApp(ui, server) 

Answer 1

あなたはそれを削除するにはNULLに制御を設定することができます。コードを参照してください。

library(shiny) 

ui <- fluidPage(
    actionButton("render", "Render"), 
    actionButton("remove", "Remove"), 
    uiOutput("moreControls") 
) 

server <- function(input, output) { 

    rv <- reactiveValues() 

    observeEvent(input$render, { rv$action <- 'render' }) 
    observeEvent(input$remove, { rv$action <- 'remove' }) 

    output$moreControls <- renderUI({ 

    if (is.null(rv$action)) {return(NULL)} 

    if(rv$action == 'render'){ 
     sliderInput(inputId = "n",label = "N", min = 1, max = 1000, value = 500)  
    } else { 
     return(NULL) 
    } 
    }) 
} 
shinyApp(ui, server)