Stamen map not rendered in shiny -> receiving blank image

[ghost]

I try to build some simple stamenmaps with ggmap in R-Shiny. I can't seem to get the map rendered. I only receive a blank image. The the simple example attached below:

library(ggmap)
library(shiny) 

server <- function(input, output) {

    map_ren <- renderPlot(get_stamenmap(
        bbox = c(
            left = 10,
            bottom = 30,
            right = 42,
            top = 34),
        maptype = "terrain",
        zoom = 3,
        force = TRUE
    ), width = 1000, height = 1000)

    output$map <- map_ren
}

ui <- fluidPage(
        plotOutput('map', width = 1000, height = 1000)
)

shinyApp(ui, server)

}, si = TRUE)

[ChristianSch]

This is an old issue, but in any case: This has nothing to do with shiny, but with wrong usage.

You're missing the ggmap call:

library(ggmap)
library(shiny) 

server <- function(input, output) {
  map_ren <- renderPlot(
    ggmap(get_stadiamap(
    bbox = c(
      left = 10,
      bottom = 30,
      right = 42,
      top = 34),
    maptype = "alidade_smooth",
    zoom = 3,
    force = TRUE
  )), width = 1000, height = 1000)

  output$map <- map_ren
}

ui <- fluidPage(
  plotOutput('map', width = 1000, height = 1000)
)

shinyApp(ui, server)