"CurrentSize" for sizeModes in easyprintMap not working about leaflet.extras2 HOT 4 CLOSED

library(shiny)
library(leaflet)
library(leaflet.extras2)

ui <- fluidPage(
    leafletOutput("map"),
    selectInput("scene", "Select Scene", choices=c("CurrentSize", #"Current",
                                                   "A4Landscape",
                                                   "A4Portrait")),
    actionButton("print", "Print Map")
)

server <- function(input, output, session) {
    output$map <- renderLeaflet({
        # input$print
        leaflet()  %>%
            addTiles() %>%
            setView(10, 50, 9) %>%
            addEasyprint(options=easyprintOptions(
                             sizeModes=c("CurrentSize", #"Current",
                                         "A4Landscape",
                                         "A4Portrait"),
                             exportOnly=TRUE
                         ))
    })
    observeEvent(input$print, {
        leafletProxy("map") %>%
            easyprintMap(sizeModes=input$scene)
    })
}

shinyApp(ui, server)