copySource in dragulaInput not working

[furrrpanda]

If I understand correctly setting copySource = FALSE would allow the user to copy for example Jan top Target1 and Target2 but when I drag one of the sources to Target1, it on gone from the source.

library(shiny)
library(esquisse)

ui <- fluidPage(
  tags$h2("Demo dragulaInput"),
  tags$br(),
  fluidRow(
    column(
      width = 6,
      
      dragulaInput(
        inputId = "dad1",
        label = "Default:",
        sourceLabel = "Source",
        targetsLabels = c("Target 1", "Target 2"),
        choices = month.abb,
        copySource = FALSE,
        width = "100%"
      ),
      verbatimTextOutput(outputId = "result1")

    )
  )
)


server <- function(input, output, session) {
  
  output$result1 <- renderPrint(str(input$dad1))
  
  
}

if (interactive())
  shinyApp(ui = ui, server = server)