는 내가 서버에 보관 html 파일을 생성 (데이터가 변경되었다)이 R 코드를 사용 :R에 반응하는 전단지 맵 팝업을 만드는 방법이 있습니까?
library(leaflet)
leaflet() %>%
addProviderTiles(providers$OpenStreetMap) %>%
setView(lng=2.333333, lat=48.866667, zoom=12) %>%
addMarkers(lng=2.333333, lat=48.866667, popup='Test')
문제는 그 내가 휴대 전화를 사용하여 브라우저에서 파일을 렌더링, 핀 및 팝업이 매우 작아서지도를 확대 할 때 크기가 변경되지 않습니다. 핀과 팝업을 더 크게 만들 수있는 방법이 있습니까?
이를 위해 사용해야하는 몇 가지 자바 스크립트 코드 this R 전단지 문서 페이지에서 언급 한대로 기능 htmlwidgets::onRender()를 사용하여 주입.
javascript 생성 된 리플릿 HTML 파일의 헤드에 문자열을 삽입하여 페이지를 응답하도록하는 jquery 코드 (리플릿 R 패키지에 포함 된 javascript 라이브러리)가 필요합니다. reproductible 코드 출력 example.html
의 응답의
# load leaflet library
library(leaflet)
# create the string for responsiveness that will be injected in the <head> section of the leaflet output html file. Note that the quotes were escaped using the backslash character : `\`.
responsiveness = "\'<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\'"
# build a leaflet map with a stamen background
example.map <- leaflet() %>%
addProviderTiles(group = "Stamen",
providers$Stamen.Toner,
options = providerTileOptions(opacity = 0.25)
) %>%
# add the javascript for responsivness
htmlwidgets::onRender(paste0("
function(el, x) {
$('head').append(",responsiveness,");
}"))
# show the map
example.map
# output an save the html file of the leaflet map in the root of your working directory
saveWidget(widget=example.map,
file= "example.html",
selfcontained = TRUE
)
javascript $('head').append('<meta name="viewport" content="width=device-width, initial-scale=1.0">')
는 텍스트 편집기로 만든 example.html 파일을 열고 HTML 태그 <meta name="viewport" content="width=device-width, initial-scale=1.0">이 파일의 head 부분에 있는지 확인하십시오.
브라우저에서 example.html 파일을여십시오. 크롬을 마우스 오른쪽 버튼으로 클릭하고 검사 한 다음 휴대 전화 아이콘을 클릭하면 페이지가 휴대 전화로 렌더링 된 것으로 표시됩니다. 그렇다면 줌 버튼에 쉽게 접근 할 수 있어야합니다 (큰 크기).