使用 selectInput 的闪亮仪表板和传单

Question

我正在尝试将闪亮的仪表板与传单包一起使用。我尝试使用仪表板中的 "SelectInput" 函数根据所选输入（geoArea）创建反应式地图。但是，我无法使传单和 SelectInput 相互连接。

我也想在我的数据集中区分两组并在leaflet/shiny中绘制（列名"up.and.down"有正值和负值）。 Base R 我可以使用 tidyverse 包中的过滤器选项来做到这一点，并为每个颜色赋予不同的颜色，但是我不确定这在 Shinydashboard 中是如何工作的。如有任何帮助，我们将不胜感激。

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



datafile<- read.csv("/Users/prabeshkc/Desktop/Whosebug 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)`

Answer 1

试试这个：

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


datafile<-read.csv("/Users/prabeshkc/Desktop/Whosebug 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)

使用 selectInput 的闪亮仪表板和传单

Shiny dashboard and leaflet using selectInput

r

shiny

leaflet

shinydashboard

shiny-reactivity