Пакет Power BI и буклет R - плитки не отображаются

Question

У меня возникли проблемы с отображением листов листов с помощью пакета leaflet R в настраиваемых визуальных элементах power bi.

Следуя этой процедуре , объясняющей, как использовать пользовательские визуальные элементы в Power BI, я использовал следующий код:

source('./r_files/flatten_HTML.r')

library(dplyr)
library(leaflet)

dataset <- Values
m <- leaflet() %>%   addProviderTiles("Stamen.Watercolor") %>% 
addCircleMarkers(dataset$lng, dataset$lat, radius = dataset$size) %>% 
addCircleMarkers(dataset$lng, dataset$lat, radius = runif(100, 4, 10), color = c("red"))

internalSaveWidget(m, 'out.html');

Мой набор данных выглядит следующим образом (у меня та же проблема с любым набором данных, включая те, которые использовались в справочной системе):

dput(head(dataset))

structure(list(value = c(0.0312819085485015, -0.0347865234437622, 
-0.0483830686065398, -0.0549732174222513, -0.066608077878619, 
-0.074376647461119), size = c(19.5772261708044, 9.14226635242812, 
6.23493849067017, 17.0839378878009, 13.8565228821244, 10.3433380043134
), lng = c(-93.6313250520961, -93.6473800245603, -93.6538138931705, 
-93.6456154972455, -93.6484166098675, -93.6543456657981), lat =         c(42.0347684275463, 
42.0326412382433, 42.0269432323368, 42.0222304571459, 42.0314391809256, 
42.0405492323631), Column1 = c(61L, 64L, 92L, 68L, 74L, 21L), 
category = structure(c(9L, 6L, 4L, 2L, 10L, 4L), .Label = c("A", 
"B", "C", "D", "E", "F", "G", "H", "I", "J"), class = "factor")), row.names = c(NA, 
6L), class = "data.frame")

Как показано на следующем изображении круг отображается правильно, но фон остается пустым.

Answer 1

Я наконец нашел альтернативу, используя предоставленные плитки там .

Необходимо использовать следующий синтаксис (пример с плитками OpenTopoMap):

leaflet() %>%   
addTiles("https://{s}.tile.opentopomap.org/{z}/{x}/{y}.png") %>%
addCircleMarkers(dataset$lng, dataset$lat, radius = dataset$size) %>% 
addCircleMarkers(dataset$lng, dataset$lat, radius = runif(100, 4, 10), color = c("red"))