shinyDND mit uiOutput funktioniert nicht

Question

Ich versuche, shinyDND von der Serverseite mit uiOuput, renderUI und dragUI zu verwenden, aber die erstellten divs sind nicht ziehbar. Beispiel:

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)  

Das DragUI-Element, das in der renderUI-Funktion erstellt wird, ist zwar sichtbar, aber nicht ziehbar. Das DragUI-Element in der ui-Funktion ist in Ordnung.

Irgendwelche Ideen?

Answer 1

Dies war ein Fehler und wurde behoben