Блестящая панель инструментов и листовка с использованием selectInput - PullRequest
Новая
       18

Блестящая панель инструментов и листовка с использованием selectInput

0 голосов
/ 27 декабря 2018

Я пытаюсь использовать блестящую приборную панель с листовкой.Я попытался использовать функцию «SelectInput» на панели инструментов, чтобы создать реактивную карту на основе выбранного входа (geoArea). Однако я не могу связать листок и SelectInput друг с другом.

Я тоже хотелчтобы выделить две группы в моем наборе данных и представить их в виде листовки / блеска (имя столбца "up.and.down" имеет положительные и отрицательные значения). В Base R я мог бы сделать это, используя параметр фильтра из тидиверсапакет и дать разные цвета для каждого, но я не уверен, как это работает в Shinydashboard.Буду очень признателен за любую помощь. 

library(shiny)
    library(shinydashboard)
    library(shinydashboardPlus)
    library(leaflet)
    library(tidyverse)



datafile<- read.csv("/Users/prabeshkc/Desktop/stackoverflow data.csv")

`ui<- dashboardPage(
  skin = "blue",
  dashboardHeader(title = "Cluster Map"),
  dashboardSidebar(
    selectInput("Area",label = "Geo Area",
                choices = datafile$geoArea)
  ),
  dashboardBody(
    fluidRow(box(width = 12,leafletOutput(outputId = "mymap")))
  ))`

`server <- function(input, output) {
 data_input<-reactive({
   datafile %>% 
     leaflet() %>% 
     addTiles() %>% 
     addMarkers(lng = datafile$lng,lat = datafile$lat)
 })
  data_input_ordered<-reactive({
    data_input()[order(match(data_input)$geoArea)]
  })`

  `labels<- reactive({
    paste("<p>", datafile$goals,"</p>"),
    paste("<p>", datafile$achieved,"</p>")
  })`

 `output$mymap<- renderLeaflet(
    datafile %>% 
      leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(lng = datafile$lng,lat = datafile$lat)
  )
}
 shinyApp(ui = ui, server = server)`

1 Ответ

0 голосов
/ 28 декабря 2018

Попробуйте это: 

library(shiny)
library(shinydashboard)
library(shinydashboardPlus)
library(leaflet)
library(tidyverse)


datafile<-read.csv("/Users/prabeshkc/Desktop/stackoverflow data.csv") %>% 
  mutate(color=ifelse(up.and.down<0,"red","blue"))

ui<- dashboardPage(
  skin = "blue",
  dashboardHeader(title = "Cluster Map"),
  dashboardSidebar(
    selectInput("Area",label = "Geo Area",
                choices = datafile$geoArea)
  ),
  dashboardBody(
    fluidRow(box(width = 12,leafletOutput(outputId = "mymap")))
  ))

server <- function(input, output) {

  output$mymap<- renderLeaflet({
    validate(need(datafile,"Add file"))
    validate(need(input$Area,"Select Area"))
    datafile %>% 
      filter(geoArea %in% input$Area) %>% 
      leaflet() %>% 
      addTiles() %>% 
      addCircleMarkers(lng = ~lng,lat = ~lat,color=~color,
                       popup = ~paste(paste0("Goals - ",goals),paste0("Achieved - ",achieved), sep="<br>"))
  })
}
shinyApp(ui = ui, server = server)
...