Трехмерный глобус не отображается в приложении Shiny - PullRequest
Новая
       4

Трехмерный глобус не отображается в приложении Shiny

1 голос
/ 14 февраля 2020

Я пытался заставить 3D-шар появиться в приложении Shiny. Код прекрасно работает за пределами renderLeaflet (т. Е. Появляется глобус), но не внутри него (т. Е. Глобус не отображается).

Любой совет о том, как исправить ситуацию, был бы наиболее ценным: 

ui <- fluidPage(
  mainPanel( 
    leafletOutput("map"), 
  ))


server <- function(input, output) {

  output$map <- renderLeaflet({

    pal <- c("black", "blue", "red")

    axis_props <- list(
      showgrid = T, gridcolor = toRGB("gray40"), gridwidth = 0.5
    )
    globe <- list(
      showland = T, showlakes = T, showcountries = T, showocean = T,
      countrywidth = 0.5,
      landcolor = toRGB("grey90"),
      lakecolor = toRGB("white"),
      oceancolor = toRGB("white"),
      projection = list(
        type = 'orthographic',
        rotation = list(
          lon = -100, lat = 40, roll = 0
        ),
        lonaxis = axis_props,
        lataxis = axis_props
      )
    )

    # Loading plotly
    plot_geo(width = 600, height = 600, locationmode = 'country names') %>%  # initializing plotly object
      add_trace(type = 'scatter', locations = ~countries, showscale = T, z = ~HIndex,
                color = ~HIndex, colors = pal, hoverinfo = 'text', text = ~paste(countries, HIndex)) %>%
      colorbar(title = 'Happiness Index', title = 'Happiness Index of Countries') %>%
      layout(geo = globe, title = "Happiness Index of Countries Around the World (2019)")


 })


}


shinyApp(ui = ui, server = server)
...