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

這是一個錯誤，並已被修復