Как ускорить листовку на блестящем сервере


Я настроил простую листовую карту в shiny, где shiny server.R выглядит следующим образом:

(пожалуйста, получите RDS-данные из Dropbox для воспроизводимого примера)

Сервер.R

test_polygons <- readRDS('test_polygons.RDS') # Sind die Polygon-Shapefiles transformiert auf WGS84 für Bezirke

#some merging....
#we use sample data instead

test_polygons@data$sample <- runif(nrow(test_polygons@data))

#Create some nice popups
world_popup <- function(modell){
  niveau <- test_polygons@data[, modell]

  probs  <- seq(0, 1, length.out = 5 +  1)
  niveau <- cut(niveau, breaks=quantile(niveau, probs, na.rm = TRUE, names = FALSE), labels=paste('level', 0:4), include.lowest = TRUE)
  niveau <- as.character(niveau)


  niveau <- factor(niveau, labels=)

  paste0("<strong>Bezirk: </strong>", 
         as.character(test_polygons@data$ID), 
         "<br><strong><br>", 
         "</strong>", 
         "<strong>Level: </strong>", 
         niveau
  )
}


  tiles <- "http://{s}.tile.stamen.com/toner-lite/{z}/{x}/{y}.png"
  attribution <- 'Map tiles by <a target="_blank" href="http://stamen.com">Stamen Design</a>, under <a target="_blank" href="http://creativecommons.org/licenses/by/3.0">CC BY 3.0</a>. Map data by <a target="_blank" href="http://www.naturalearthdata.com/">Natural Earth</a>.'



# produce the leaflet map ====
pal <-  colorQuantile("YlOrRd", NULL, n = 5)
      m.sample <- leaflet(data = test_polygons) %>%
      addTiles(urlTemplate = tiles,  
      attribution = attribution) %>%
      setView(13.782778,  47.61, zoom = 7) %>%
      addPolygons(fillColor = ~pal(test_polygons$sample), 
      fillOpacity = 0.8, 
      color = "#000000", 
      weight = 1, 
      popup = world_popup('sample'))

      # start the server part
      server <- function(input, output, session) {
        output$query <- renderText({
          as.character(parseQueryString(session$clientData$url_search))
        })

        output$mymap <- renderLeaflet({   
              m.sample
        })
      }      

Ui.R

В то время как пользовательский интерфейс довольно прост:

require(leaflet)
require(shiny)

ui <- fluidPage(
  column(width=12,
  leafletOutput("mymap", height="200px")#, height="700px")
  )
)

Это нормально работает на моем настольном компьютере. Однако, как только я пытаюсь получить доступ к нему на моем сервере, листовка-карта загружается ужасно медленно. Особенно если я изменю высоту, скажем, на 100 %, он остановится. погрузка вообще. Итак, вот мои вопросы:

  • Как ускорить процесс загрузки.
  • можно ли заранее загрузить некоторые части, поскольку в этом контексте все является реактивным.
  • могу ли я создать карту, независимую от shiny-вероятно, эта загружается быстрее.
  • возможно ли, что мои полигоны имеют много деталей?

Большое Спасибо за вашу помощь!

1   6   2016-03-30 22:00:51

1 ответ:

Начиная с комментариев, упрощение SP-объекта сделало свое дело. Я импортировал базовый шейп-файл в QGis и настроил его на

 Vector => Geometry Tools => Simplify geometries

Теперь работает намного быстрее. Дополнительную информацию можно найти по ссылке:

Qgis-Stackexchange или документация .

Спасибо за помощь!