我用insertUI()
函数来创建新的dragUI()
动态地。不幸的是,新创建的dragUI
行为不符合预期。我无法将它们拖动为dragUI
是从创建的ui
初始函数。
library(shiny)
library(shinyDND)
ui <- fluidPage(
actionButton('insertBtn', 'Insert'),
dropUI("Box", row_n = 3, col_n = 3, style = "height: 200px; width: 700px"),
dragUI("Drag0",style = "display: inline-block; height: 100px; width: 100px",tags$a("Initial"))
)
shinyApp(ui, server = function(input, output) {
observeEvent(input$insertBtn, {
insertUI(
selector = '#Box',
where = c("afterEnd"),
ui = (dragUI(id="newDragUI",style = "display: inline-block; height: 100px; width: 100px",tags$a("new")))
)
})
})
None
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)