parlak <code>server.R</code> şöyle nerede parlak bir basitçe broşür harita kurdunuz

Question

parlak sunucuda broşürü hızlandırmak için:

(bir tekrarlanabilir örneğin Dropbox gelen RDS-Verileri olsun lütfen)

Server.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

UI iken

oldukça basittir: Bu benim masaüstü bilgisayarda çalışmaları tamam

require(leaflet) 
require(shiny) 

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

. Ancak, sunucuma erişmeye çalıştığım anda, broşür-harita aşırı yavaşça yüklenir. Özellikle, yüksekliği% 100 olarak değiştirirsem, yükleme işlemini durdurur. İşte benim sorularım:

• Yükleme işlemini nasıl hızlandırabilirim.
• Bu bağlamda herhangi bir şey reaktif olduğundan bazı parçaları önceden yüklemek mümkün mü?
• Parlaklıktan bağımsız bir harita oluşturabilirim - bu muhtemelen daha hızlı yükleniyor.
• Çokgenlerimin birçok ayrıntıya sahip olması mümkün mü?

Yardımlarınız için çok teşekkür ederim!

Answer 1

SP-Object'i sadeleştiren yorumlardan yola çıkarak hile yaptı. QGis'te alttaki şekil dosyasını aldım ve

Şimdi çok daha hızlı çalışıyor. Daha fazla bilgi şu adreste bulunabilir:

Qgis-Stackexchange veya Documentation.

Yardımlarınız için teşekkürler!