Мобильная версияИзменение размера шрифта всплывающего окна «addImageQuery» в Leaflet в R ⇐ CSS
-
Anonymous
Изменение размера шрифта всплывающего окна «addImageQuery» в Leaflet в R
Я пытаюсь понять, как изменить размер всплывающего окна (размер шрифта), создаваемого функцией «addImageQuery» из пакета «leafem». Другими словами, я хочу, чтобы всплывающее окно, отображающее «Слой поппендорф: 9048» (верхний правый угол) на прикрепленном изображении, было больше, чтобы текст был более разборчивым. Основная проблема заключается в том, что у функции, по-видимому, нет имени класса, поэтому я не знаю, на какой класс ссылаться в «tags$style». Я попытался определить имя класса внутри функции, но это не сработало, как показано ниже.
Пример графика
библиотека(листовка) библиотека (плоский вид) библиотека (htmltools) библиотека (листема) карта % addProviderTiles("OpenStreetMap") %>% addRasterImage(poppendorf[[1]], project = TRUE, group = "poppendorf", LayerId = "poppendorf") %>% addImageQuery(poppendorf[[1]], project = TRUE, LayerId = "poppendorf", className = "query") %>% addLayersControl(overlayGroups = "поппендорф") доступный для просмотра (tagList (список ( теги $head( tags$style(".leaflet .query i{border-radius: 50%;width:18px;height: 18px;margin-top: 4px;}")), карта)))
Я пытаюсь понять, как изменить размер всплывающего окна (размер шрифта), создаваемого функцией «addImageQuery» из пакета «leafem». Другими словами, я хочу, чтобы всплывающее окно, отображающее «Слой поппендорф: 9048» (верхний правый угол) на прикрепленном изображении, было больше, чтобы текст был более разборчивым. Основная проблема заключается в том, что у функции, по-видимому, нет имени класса, поэтому я не знаю, на какой класс ссылаться в «tags$style». Я попытался определить имя класса внутри функции, но это не сработало, как показано ниже.
Пример графика
библиотека(листовка) библиотека (плоский вид) библиотека (htmltools) библиотека (листема) карта % addProviderTiles("OpenStreetMap") %>% addRasterImage(poppendorf[[1]], project = TRUE, group = "poppendorf", LayerId = "poppendorf") %>% addImageQuery(poppendorf[[1]], project = TRUE, LayerId = "poppendorf", className = "query") %>% addLayersControl(overlayGroups = "поппендорф") доступный для просмотра (tagList (список ( теги $head( tags$style(".leaflet .query i{border-radius: 50%;width:18px;height: 18px;margin-top: 4px;}")), карта)))
