在flexdashboard中调整Shiny可视化Leaflet输出高度的问询

以下四种方法任选其一即可，也可搭配使用调整到符合预期的展示效果：

• 方法1：调整UI层plotOutput的高度参数
  现有代码中plotOutput("plot1")未指定高度，会默认使用R Markdown的通用输出高度限制，直接补充height参数即可自定义高度：

  mainPanel(
    plotOutput("plot1", height = "800px") # 数值可按需调整，也可使用`100vh`等相对单位
  )
  

• 方法2：调整R Markdown代码块的输出参数
  若要针对单个代码块生效，在代码块开头的声明处补充高度配置：

  ```{r, fig.height=10, out.height="800px"}
  # 此处放置你的完整Shiny代码
  ```
  

  若要全局生效，在文档最开头的setup代码块中添加全局配置：

  knitr::opts_chunk$set(fig.height = 10, out.height = "800px")
  

• 方法3：调整服务端renderPlot的高度参数
  该配置优先级高于UI层的plotOutput高度设置：

  output$plot1 <- renderPlot({
    # 你原有的ggplot绘图代码保持不变
  }, height = 800) # 数值单位为像素，可按需调整
  

• 方法4：指定Shiny应用的全局高度
  调用shinyApp时传入options参数控制整个应用的输出高度：

  shinyApp(ui = ui1, server = server1, options = list(height = 800))
  

内容的提问来源于stack exchange，提问作者Liz