r语言 - shinyDND与uiOutput不工作

Question

我试图从服务器端使用uioutput, 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

这是一个bug，现在已经修复了