Поместите негеографический объект карты в приложение Shiny

Question

По сути, мой вопрос заключается в том, как поместить объект PNG или вид карты в блестящее приложение, чтобы можно было размещать над ним маркеры.

У меня есть 15 негеографических объектов картографического плана этажа, таких как PNG выше, которые были преобразованы в объекты картографического просмотра с использованием приведенного ниже кода при помощи другого пользовательского вопроса SO здесь:

library(raster)
library(png)
library(mapview)

ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8), AGE = c(4, 15, 15, 43, 5, 50, 67, 77, 77, 28))
web_img <- "https://stackru.com/images/0172bdda124a808705803892b6b6703f2e298a51.png"

png <- readPNG(readBin(web_img, "raw", 1e6))

rst_blue <- raster(png[, , 1])
rst_green <- raster(png[, , 2])
rst_red <- raster(png[, , 3])

img <- brick(rst_red, rst_green, rst_blue)

m <- viewRGB(img)
abs(cbind(rnorm(40), rnorm(40)))
m@map %>% addMarkers(lng = ohs$x, lat = ohs$y)

Я пытаюсь создать приложение Shiny, чтобы собрать все это вместе, но я застрял в команде renderLeaflet и не уверен, как поместить мой объект m@map в приложение. В основном ниже функциональность с объектом карты в качестве листовки.

library(shiny)
library(leaflet)
ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8))
r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
 leafletOutput("mymap"),
 p(),

)

server <- function(input, output, session) {



  output$mymap <- renderLeaflet({
   leaflet() %>%
      addProviderTiles("Stamen.TonerLite",
                       options = providerTileOptions(noWrap = TRUE)
      ) %>%
      addMarkers(lng = ohs$x, lat = ohs$y)
  })
}

shinyApp(ui, server)

Answer 1

Это работает для меня:

library(shiny)
library(mapview)
library(png)
library(raster)

ohs<-data.frame(OHS_no=c(1001:1010), x=runif(10, 0, 1), y = runif(10, 0, 0.8))
r_colors <- rgb(t(col2rgb(colors()) / 255))
names(r_colors) <- colors()

ui <- fluidPage(
  leafletOutput("mymap"),
  p()

)

server <- function(input, output, session) {
  web_img <- "https://stackru.com/images/0172bdda124a808705803892b6b6703f2e298a51.png"

  png <- readPNG(readBin(web_img, "raw", 1e6))

  rst_blue <- raster(png[, , 1])
  rst_green <- raster(png[, , 2])
  rst_red <- raster(png[, , 3])

  img <- brick(rst_red, rst_green, rst_blue)

  m <- viewRGB(img)

  output$mymap <- renderLeaflet({
    m@map %>%
      addMarkers(lng = ohs$x, lat = ohs$y)
  })
}

shinyApp(ui, server)

Просто замени leaflet() с m@map (который является объектом виджета листовки). Учитывая, что растр не имеет географической привязки, нет смысла добавлять листы провайдера.