Shiny 中的反应式多级列表

Question

我正在尝试在 Shiny 中创建一个能够将孩子添加到父母的多级列表，但我无法让它反应。是否可以有一个闪亮的按钮来附加由下一个整数索引的新项目？

例如：

 1.
 1.1
 1.1.1
 1.2

具有在 1.1 下“添加”新项目的功能，索引 1.1.2 以及 1.2.1 在 1.2 下的功能，如下所示：

 1.
 1.1
 1.1.1
 1.1.2
 1.2
 1.2.1

我试图让它创建一个列表，然后有两个操作按钮来添加/删除列表中的列表项。

Answer 1

您可以将其存储在 reactiveValue() 中并通过 selectInput() 进行选择，如 cmets 中所述：

ui <- fluidPage(
  uiOutput("parent"),
  actionButton("add", "add"),
  actionButton("remove", "remove"),
  verbatimTextOutput("txt")
)
server <- function(input, output){
  global <- reactiveValues(lst = list(list(list(1),list(2), list(3))))

  output$parent <- renderUI({
    selectInput("par", "parent", 1:length(global$lst[[1]]))
  })

  observe({
    if(input$remove){
      isolate({
        lst <- global$lst[[1]]
        len <- as.numeric(input$par)
        lens <- lengths(lst)
        global$lst[[1]][[len]][[lens[len]]] <- NULL
      })
    }
  })

  observe({
    if(input$add){
      isolate({
        lst <- global$lst[[1]]
        len <- as.numeric(input$par)
        lens <- lengths(lst)
        global$lst[[1]][[len]][[lens[len] + 1]] <- "i am the new guy"  
      })
    }
  })


  output$txt <- renderPrint({
    str(global$lst)
  })
}
shinyApp(ui, server)