0

我正在创建一个 flexdashboard 并在其中包含一个传单地图。

一旦我将地图添加到 Markdown 文件中，而仪表板没有呈现任何内容，我会在 R Markdown 控制台中收到以下警告：

normalizePath(path.expand(path), winslash, mustWork) 中的警告：path[1]="figure-html/chart_categories-1.mb.png": 系统找不到指定的路径

normalizePath(path.expand(path), winslash, mustWork) 中的警告：path[1]="figure-html/chart_categories-1.png": 系统找不到指定的路径

现在，这个错误很奇怪，好像我独立于它呈现的仪表板运行它没有问题，当我创建一个新的仪表板并且传单地图是唯一的块时它也没有问题地呈现，但是它导致了我的其余代码问题。

此外，如果我在不评估地图块的情况下运行仪表板，它会完美运行。

有什么想法可能导致这种情况吗？

我的传单代码如下：

countries <- readOGR("/filepath")



country_map = sqlQuery(pa,"SELECT *
  FROM [PortAnalyzer].[dbo].[Country] c
  join BarraCountryRegion b on right(b.Factor,3) = c.CountryCode
  where b.Model = 'GEM3L' and LEN(b.Factor)=9 ",stringsAsFactors = FALSE)


countries@data = countries@data %>% left_join(country_map,c('ISO_A3' = 'CountryCode'))

country_attribution = data_melt %>% filter(Category == 'Country' & Style =='Total' & variable == 'Total' & 
                                                   !`Sub-Category` %in% c('Total','CASH'))




countries@data = countries@data %>% left_join(country_attribution,c('Factor' = 'Sub-Category'))


map <- leaflet(countries)

# Create a continuous palette function
pal <- colorNumeric(
        palette = "Blues",
        domain = countries$value
)

binpal = colorNumeric('RdYlGn',countries$value)

test = countries@data

# Apply the function to provide RGB colors to addPolygons
map %>%
        addPolygons(stroke = FALSE, smoothFactor = 0.2, fillOpacity = 1,color = binpal(countries$value)
        ) %>%
        addLegend("bottomright", pal = binpal, values = countries$value,
    title = "Total Return",
    labFormat = labelFormat(suffix = "%"),
    opacity = 1
  )
4

1 回答 1

2

我可以通过在 Shiny 函数中输入 Leaflet 来使其工作：

renderLeaflet({})

于 2016-12-20T23:23:20.677 回答