Как показать более 1 строки во всплывающем окне?

Question

Так что в основном у меня есть карта, где все zipcodes можно кликать. Всякий раз, когда я нажимаю на определенную область zipcode, я получаю всплывающее окно, это всплывающее окно покажет название и класс школы. Моя проблема в том, что в одном zipcode есть более 1 школы, и я хочу показать все школы каждого zipcode во всплывающем окне.

shape_and_data <- merge(zipcode, aantal_hyp, by.x="PC4", by.y="ZIPCODE_SCHOOL", duplicateGeoms=TRUE, multiple = TRUE) 

#way to make colorpalletes 
pal <- colorQuantile("YlGn", NULL, n = 5) 


state_popup <- paste0("<strong>Schoolnaam: </strong>", 
         shape_and_data$INSTELLINGSNAAM_VESTIGING, 
         "<br><strong>Quasi cito : </strong>", 
         shape_and_data$quasicito) 


leaflet(data = shape_and_data) %>% 
    addProviderTiles("CartoDB.Positron") %>% 
    addPolygons(fillColor = ~pal(GEMEENTENUMMER), 
       fillOpacity = 0.8, 
       color = "#BDBDC3", 
       weight = 1, 
       popup = state_popup) 

области с state_popup <- paste0("<strong>Schoolnaam: </strong>", является всплывающим окном, как вы можете видеть, что это будет печатать только 1 schoolname.

Answer 1

Попробуйте ссылки на переменные внутри листка() вызов:

leaflet(data = shape_and_data) %>% 
    addProviderTiles("CartoDB.Positron") %>% 
    addPolygons(fillColor = ~pal(GEMEENTENUMMER), 
       fillOpacity = 0.8, 
       color = "#BDBDC3", 
       weight = 1, 
       popup = paste("<strong>Schoolnaam: </strong>", 
        shape_and_data$INSTELLINGSNAAM_VESTIGING, 
        "<br><strong>Quasi cito : </strong>", 
        shape_and_data$quasicito))