如何在R Shiny中为Mapdeck add_scatterplot使用多个数据帧输入？

library(shiny)
library(mapdeck)

# 加载数据
data1 <- read.csv("data1.csv")
data2 <- read.csv("data2.csv")

ui <- fluidPage(
  mapdeckOutput("map")
)

server <- function(input, output) {
  output$map <- renderMapdeck({
    # 创建地图
    mapdeck() %>%
      add_scatterplot(
        data = data1,
        lat = ~latitude,
        lon = ~longitude,
        layer_id = "data1",
        radius = 100,
        fill_color = "blue"
      ) %>%
      add_scatterplot(
        data = data2,
        lat = ~latitude,
        lon = ~longitude,
        layer_id = "data2",
        radius = 100,
        fill_color = "red"
      )
  })
}

shinyApp(ui, server)