带有 uiOutput 的 shinyDND 不起作用

Question

我正在尝试使用 uiOuput、renderUI 和 dragUI 从服务器端使用 shinyDND，但创建的 div 不可拖动。示例：

  library(shiny)
  library(shinyDND)

  ui <- shinyUI(
    mainPanel(
      uiOutput("myUI"),
      dragUI("works","works")

    )
  )

  server = shinyServer(function(input, output,session) {
    output$myUI <- renderUI({
      dragUI("doesntwork","doesntwork")
    })
  })

  # Run the application 
  shinyApp(ui = ui, server = server)    

在 renderUI 函数中创建的 dragUI 元素可见但不可拖动。 ui函数中的dragUI元素就可以了。

有什么想法吗？

Answer 1

这是一个错误，现已修复