0

我需要在我闪亮的应用程序中动态生成用户界面。这涉及在某些条件下使用 insertUI 将 rpivotTable 插入 UI 页面。我发现我只能成功地做到这一点。删除元素并再次插入后，它不会出现。问题仅与 rpivotTable 有关。所有其他界面元素，如 dataTable、a​​ctionButton 等都运行良好。以下是重现该问题的示例代码：

library(shiny)
library(rpivotTable)

ui<- fluidPage(title="test page",
  actionButton("A","insert pivot"),
  actionButton("B","remove pivot")
)

server<- function (input, output, session)
{
  ds<-data.frame(a="1",b="2")

  observeEvent(input$A,{
    cat("insert\n")
    insertUI(selector="#B",
             where="afterEnd",
             ui=rpivotTableOutput("C"),
             immediate = T)
    output$C <- renderRpivotTable({ rpivotTable(data = ds) })
  })

  observeEvent(input$B,{
    cat("remove\n")
    removeUI(selector="div#C",immediate = T)
  })
}

shinyApp(ui,server)

任何建议如何解决这个问题？

4

1 回答 1

1

这个问题也作为一个问题发布在 rpivotTable GitHub 中，并在下面的解决方案代码中得到了回答：

library(shiny)
library(rpivotTable)

ui<- fluidPage(title="test page",
               actionButton("A","insert pivot"),
               actionButton("B","remove pivot"),
               div(id = 'placeholder') 
)

server<- function (input, output, session)
{
  ds<-data.frame(a="1",b="2")
  inserted <- c()

  observeEvent(input$A, {
    btn <- input$A
    id <- paste0('txt', btn)
    insertUI(
      selector = '#placeholder',
      ## wrap element in a div with id for ease of removal
      ui = div(
        rpivotTable(ds), 
        id = id
      ))
    inserted <<- c(id, inserted)
  })
  observeEvent(input$B, {
    removeUI(
      ## pass in appropriate div id
      selector = paste0('#', inserted[length(inserted)])
    )
    inserted <<- inserted[-length(inserted)]
  })
}

shinyApp(ui,server)

我认为解决方案基本上是为每个新的 insertUI 使用新的唯一 ID。

于 2019-04-10T14:37:36.107 回答