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

这是一个错误，并已被修复