Yesterday, I had a question about changing the size and color of the badge and text in dragulaInput. Now, I'm wondering how to change the boxes vertically on the right side and left side.
I came across
<div style="display: grid; grid-column-gap: 5px; grid-row-gap: 5px; grid-template-columns: repeat(1, 1fr);"Can anyone offer assistance?
display: grid;
grid-template-columns: repeat(2, 1fr);
https://i.sstatic.net/zamIq.png
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)
}