在带有用户选定图层的shiny中保存叶状贴图

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  selectInput("layer", "选择图层", choices = c("图层1", "图层2", "图层3")),
  actionButton("saveBtn", "保存贴图")
)

actionButton("saveBtn", "保存贴图")

server <- function(input, output) {
  observeEvent(input$saveBtn, {
    # 获取用户选择的图层
    selectedLayer <- input$layer
    
    # 执行保存贴图的操作
    saveLeafTexture(selectedLayer)
  })
  
  # 定义保存贴图的函数
  saveLeafTexture <- function(layer) {
    # 在这里编写保存贴图的代码
    # ...
  }
}

shinyApp(ui, server)