Вопросы о том, как установить блестящий миничарт - PullRequest
Новая
       8

Вопросы о том, как установить блестящий миничарт

0 голосов
/ 26 ноября 2018 
library(shiny)
library(shinydashboard)
library(DT)
library(leaflet)
source("global.R")

ui <- dashboardPage(skin = "green",
                    dashboardHeader(title = 'xxx'),
                    dashboardBody(
                      tabItems(
                        # Second content
                        tabItem(tabName = "list",  
                                column(width = 9, box(width = NULL, solidHeader = TRUE, leafletOutput("map", height = 850))), 
                                column(width = 3, box(width = NULL, selectInput("type", "select", choices = c("normal","monitor"))))
                        )  
                    )))

server <- function(input, output) {
  # Initialization map
  output$map <- renderLeaflet({map %>%
      addMinicharts(cems$longitude, cems$latitude, type = 'bar',layerId = cems$towncode)})


  # Update charts each time input value changes
  observe({
    cf_data <- switch(input$type, "normal" = Filter(Negate(is.null), cems$factory),"monitor" = Filter(Negate(is.null), cems$cems))
    leafletProxy("map") %>%
      updateMinicharts(layerId = cems$towncode, chartdata = cf_data, type = 'bar', colorPalette = colors)
  })

  }

shinyApp(ui, server)

Я новичок в сиянии.Я использую мини-диаграмму, чтобы показать свою карту.Но меня беспокоят три проблемы.1. Число на карте всегда показывает два набора данных.Но мне нужен только один набор, когда я выбираю один (cems или factory).2. У меня много нулей в наборах.Я хочу удалить их на карте.Я добавил «Фильтр».Но это не работает.3. Я хочу сначала показать базовую карту на приборной панели.Но conde на уроке показывает график в начале.И я не знаю, как это пересмотреть.

Может кто-нибудь дать мне несколько советов по проблемам?Спасибо

...