如何 add/remove 通过闪亮的按钮动态输入字段

Question

我一直在努力寻找一种解决方案，如何使用闪亮的按钮添加和删除输入字段。我没有源代码，因为我没有取得太大进展，但是这个 jQuery 示例 (http://www.mkyong.com/jquery/how-to-add-remove-textbox-dynamically-with-jquery/) 很好地说明了我要完成的任务。这可能是闪亮的还是我应该使用 shinyjs 来做到这一点？提前致谢！

Answer 1

编辑： 我多读了 jQuery 示例，并添加了一个代码片段来完成我认为您正在寻找的内容。

我不知道 jQuery，所以我不能从这个例子中得到太多信息 link。我猜了你想要什么，但我认为关键的想法是使用 renderUI 和 uiOutput 即使我在这里的建议没有抓住要点。

要切换 ui 元素：

如果您特别不想使用 shinyjs，您可以这样做：

library(shiny)

ui <- shinyUI(fluidPage(

  actionButton("btn", "Toggle Textbox"),

  textOutput("btn_val"),
  uiOutput("textbox_ui")

))

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

  output$btn_val <- renderPrint(print(input$btn))

  textboxToggle <- reactive({

    if (input$btn %% 2 == 1) {
      textInput("textin", "Write something:", value = "Hello World!")
    }

  })

  output$textbox_ui <- renderUI({ textboxToggle() })

})

shinyApp(ui, server)

添加和删除元素：

阅读了一些 jQuery 示例后，我认为这与您要查找的内容类似：

library(shiny)

ui <- shinyUI(fluidPage(

  sidebarPanel(

      actionButton("add_btn", "Add Textbox"),
      actionButton("rm_btn", "Remove Textbox"),
      textOutput("counter")

    ),

  mainPanel(uiOutput("textbox_ui"))

))

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

  # Track the number of input boxes to render
  counter <- reactiveValues(n = 0)

  observeEvent(input$add_btn, {counter$n <- counter$n + 1})
  observeEvent(input$rm_btn, {
    if (counter$n > 0) counter$n <- counter$n - 1
  })

  output$counter <- renderPrint(print(counter$n))

  textboxes <- reactive({

    n <- counter$n

    if (n > 0) {
      lapply(seq_len(n), function(i) {
        textInput(inputId = paste0("textin", i),
                  label = paste0("Textbox", i), value = "Hello World!")
      })
    }

  })

  output$textbox_ui <- renderUI({ textboxes() })

})

shinyApp(ui, server)

这种方法的问题是每次按下添加或删除按钮时，所有输入框都会重新呈现。这意味着您可能对它们进行的任何输入都会消失。

我认为您可以通过将输入框的当前输入值保存到 reactiveValues 对象中，并将该对象的值设置为重新呈现的输入框的起始值来解决这个问题通过使用 textInput 中的 value 选项。不过，我暂时不执行它。

Answer 2

谢谢@Mikko Marttila 的回答。我能够将它用于我的目的。另外，参考这里所有输入框都得到 re-rendered 的问题，我找到了一个解决方案，从这个 answer 开始。您可以使用 reactiveValuesToList() 保存所有用户输入，然后相应地调用反应列表以将每个值设置为 lapply() 语句中相应用户的输入。

library(shiny)

ui <- shinyUI(fluidPage(

  sidebarPanel(

    actionButton("add_btn", "Add Textbox"),
    actionButton("rm_btn", "Remove Textbox"),
    textOutput("counter")

  ),

  mainPanel(uiOutput("textbox_ui"))

))

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

  # Track the number of input boxes to render
  counter <- reactiveValues(n = 0)

  # Track all user inputs
  AllInputs <- reactive({
    x <- reactiveValuesToList(input)
  })

  observeEvent(input$add_btn, {counter$n <- counter$n + 1})
  observeEvent(input$rm_btn, {
    if (counter$n > 0) counter$n <- counter$n - 1
  })

  output$counter <- renderPrint(print(counter$n))

  textboxes <- reactive({

    n <- counter$n

    if (n > 0) {
      isolate({
        lapply(seq_len(n), function(i) {
          textInput(inputId = paste0("textin", i),
                    label = paste0("Textbox", i), 
                    value = AllInputs()[[paste0("textin", i)]])
        })
      })
    }

  })

  output$textbox_ui <- renderUI({ textboxes() })

})

shinyApp(ui, server)

编辑：我将 lapply() 语句包装在 isolate() 中，因为当您尝试时 re-rendered 盒子变得烦人在字段中输入

如何 add/remove 通过闪亮的按钮动态输入字段

How to add/remove input fields dynamically by a button in shiny

input

dynamic

shiny

shinyjs

要切换 ui 元素：

添加和删除元素：