如何在Shiny中绘制带有heatmaply包的热图？

install.packages("shiny")
install.packages("heatmaply")
library(shiny)
library(heatmaply)

ui <- fluidPage(
  titlePanel("在Shiny中绘制热图"),
  sidebarLayout(
    sidebarPanel(
      # 添加输入参数
      selectInput("dataset", "选择数据集：", choices = c("mtcars", "iris")),
      checkboxInput("show_legend", "显示图例", value = TRUE)
    ),
    mainPanel(
      # 添加输出图表
      plotlyOutput("heatmap")
    )
  )
)

server <- function(input, output) {
  # 生成热图
  output$heatmap <- renderPlotly({
    # 根据输入参数选择数据集
    data <- switch(input$dataset,
                   "mtcars" = mtcars,
                   "iris" = iris)
    
    # 绘制热图
    heatmaply(data, show_legend = input$show_legend)
  })
}

shinyApp(ui = ui, server = server)