shinyDND与uiOutput无法正常工作

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

这是一个错误，已经修复了