Question

我尝试使用R库googleVis和函数gvisMap创建一个在网站上显示的地图。我可以在本地生成图表，但是一旦我将它放在网站上，就会出现错误related to a missing api key。

我搜索了这个问题并发现a similar problem，但没有解决方案。据我所知，这与API的调用使用了一个可能被弃用且不允许引用API密钥的函数（谷歌加载器）这一事实有关。但我不知道如何处理它。

这是一个可重复性最小的例子：

example <- structure(list(id = c(1497L, 1509L, 1583L, 5572L, 7361L, 8102L, 
                  8584L, 8734L, 9593L, 9614L), LatLong = c("-22.0267575:-44.3184877", 
                                                           "-22.6966783:-49.4322738", "-10.713746:-62.2545373", "-11.1369864:-42.1125701", 
                                                           "-9.9167727:-37.2763875", "-13.5779092:-39.2167652", "-5.7867453:-35.202613", 
                                                           "-22.017958:-44.5125127", "-4.8522095:-39.5748619", "-13.0786111:-39.0011556"
                  )), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA, 
                                                                              -10L), .Names = c("id", "LatLong"))

library(googleVis)

mapa_tdp <- gvisMap(example, "LatLong" ,
                options=list(showTip=TRUE, 
                             showLine=TRUE, 
                             enableScrollWheel=TRUE,
                             mapType='terrain', 
                             useMapTypeControl=TRUE))

plot(mapa_tdp)

但是，如果我保存htlm输出并将其粘贴到网站中，则会出现上述错误。

zz <- file(description="html_chart_mapa_obras.txt", open="w", encoding="UTF-8")  # open an output file connection 
cat(mapa_tdp$html$chart, file="html_chart_mapa_obras.txt")
close(zz)

这是我的会话信息：

R version 3.3.1 (2016-06-21)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows >= 8 x64 (build 9200)

在gvisMap中设置API密钥

0 个答案: