0

我正在尝试使用 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 元素很好。

有任何想法吗？

4

1 回答 1

1

这是一个错误，现已修复

于 2016-06-29T20:40:59.867 回答