R 在弹出窗口中放大绘图-闪亮应用程序

我想把一个行动按钮，以缩放和放大我的闪亮应用程序的图像。参见下面的代码，闪亮的应用程序根据用户的选择呈现两个图像“space_1.jpg”和“space_2.jpg”（已经创建）。其想法是允许用户在弹出窗口中放大图像。我不知道如何使它成为可能。非常感谢你的帮助

library(shiny)
library(shinyWidgets)
ui <- fluidPage(

sidebarPanel(width=6,
    radioButtons("choice", label = h4("Choose"),choices = c("space_1","space_2"), selected = "space_1"),
    dropdown(downloadButton(outputId = "down_image_test",label = "Download plot"),size = "xs",icon = icon("download", class = "opt"), up = TRUE),
    actionBttn(inputId = "zoom_image_test",icon = icon("search-plus", class = "opt"),style = "fill",color = "danger",size = "xs")
           ),

mainPanel(h2("main panel"),imageOutput('image_test'))

    )


server <- function(input, output){

    output$image_test <- renderImage({
        nam=paste0(getwd(),"/",input$choice,".jpg")
        list(src = nam,height = 200)}, deleteFile = FALSE)

    output$down_image_test <- downloadHandler(
        filename = "test.jpg",
        content = function(file) {
        nam=paste0(getwd(),"/",input$choice,".jpg")
        file.copy(nam, file)
    })  

}

shinyApp(ui,server)

库（闪亮）
图书馆（shinyWidgets）
用户界面