问题描述
昨天我确实问过这个问题,Change size,color of badge and text of dragulaInput,但是现在我是如何垂直,右侧和左侧更改框的。
我看到了<div style="display: grid; grid-column-gap: 5px; grid-row-gap: 5px; grid-template-columns: repeat(1,1fr);"
,并尝试用它来覆盖它,但是它不起作用。
有帮助吗?
display: grid;
grid-template-columns: repeat(2,1fr);
if (interactive()) {
library("shiny")
library("esquisse")
ui <- fluidPage(
tags$h2("Demo dragulaInput"),tags$br(),dragulaInput(
inputId = "dad",sourceLabel = "Old",targetsLabels = c("New"),choices = levels(iris[,"Species"]),width = "250px",height = "100px",status = "danger"
),verbatimTextOutput(outputId = "result")
)
server <- function(input,output,session) {
output$result <- renderPrint({
new_level <- input$dad$target$New
new_level_1 <- c(new_level,input$dad$source)
})
}
shinyApp(ui = ui,server = server)
}
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)