r - R Markdown 中的嵌入式闪亮错误：找不到对象参数

Question

我正在尝试在 R Markdown 文档中使用传单和闪亮嵌入等值线图。该代码作为一个块运行良好，但在完全运行时会产生错误。R markdown 文件中的其他所有内容都可以正常输出，只是传单地图不行。

---
title: "COVID Testing Report"
author: "Name"
output: html_document
params:
  apikey: "970618602770bfaafac10ad533b4efa4973eb55b"
  state: "MD"
  county: "Baltimore City"
  popscale: "100000"
runtime: shiny
---

```{r echo = FALSE}
#interactive map for testing rate per 100k
ui <- fluidPage(
  leafletOutput("map", width = "100%", height = "100vh")
)

server <- function(input, output, session) {
  
  mypal <- colorNumeric(palette= "viridis", 10, domain = zip.data$testrate.all)
  
  output$map <- renderLeaflet({
    leaflet()%>%
      addProviderTiles("CartoDB.Positron")%>%
      addPolygons(
        data = zip.shp,
        fillColor = ~mypal(zip.data$testrate.all),
        stroke = TRUE,
        weight = 0.5,
        smoothFactor = 0.5,
        fillOpacity = .90,
        popup = paste("Test rate", zip.data$testrate.all, "<br>",
                      "Zipcode: ", zip.data$ZCTA5CE10, "<br>"))%>%
      addLegend(position = "bottomleft",
                pal = mypal,
                values = zip.data$testrate.all,
                title = paste0("Cumulative Test Rate\n", params$county, ", ", params$state),
                opacity = 1)
   
  })
  
}
shinyApp(ui, server)
```

Error: object 'params' not found

标签： rshinyleafletr-markdown