Tmap не рендерит в блестящем - PullRequest
Новая
       26

Tmap не рендерит в блестящем

1 голос
/ 07 июня 2019

У меня есть код, который отображает tmap в shiny, однако он не отображается и сообщения об ошибках не возвращаются. Это показывает только в зрителе, но не в блестящем. Я попробовал почти все, что мог, но все еще не знал. 

library(magrittr)
library(shiny)
library(shinythemes)
library(dplyr)
library(readr)
library(ggplot2)
library(leaflet)
library(evaluate)
library(ggmap)
library(rgdal)
library(tmap)
library(tmaptools)
library(sf)
library(geojsonio)
library(sqldf)
library(DBI)
library(gsubfn)
library(RH2)
library(RSQLite)
library(rJava)

# Define UI for application that draws a histogram
ui <- fluidPage(theme = shinytheme("darkly"),
   fluidRow(
   # Application title
   column(12, align = "center",tags$h2("Victoria Car Accidents"))
   ),
   fluidRow(
     column(9,
            leafletOutput("working_map",width = "100%", height = 
400),
     column(3)
   )))


# Define server logic required to draw a histogram
options(scipen = 999)
#read LGA geojson file from local file
LGA<-st_read("Data/LGA.geojson",stringsAsFactors = FALSE)
#read car crashes data from local file
carCrashes<- read_csv("Data/Car.csv")

server <- function(input, output) {

  output$young_driver<-renderLeaflet({
    temp <- read.csv.sql(
      "Data/Car.csv",
      sql = "select distinct LGA_NAME, count(LGA_NAME) as 'number 
of young driver'
      from file
      where driver_type = 'young driver'
      group by LGA_NAME; "
    )
    sub_and_car <- left_join(LGA,temp,by = c("VIC_LGA__3" = 
"LGA_NAME"))

    tmap_mode("view")
    working_map<-tm_shape(sub_and_car)+tm_polygons(col="number of 
young driver", border.col="grey")
    tmap_leaflet(working_map)
  })
   }


# Run the application 
shinyApp(ui = ui, server = server)
...