rHighchart в R Shiny - PullRequest
Новая
       7

rHighchart в R Shiny

0 голосов
/ 25 октября 2019

Я пытаюсь сделать активную панель инструментов в R, и я сделал карту преступлений в Америке: 

highchart() %>%
  hc_title(text = "Total crime in America") %>%
  hc_subtitle(text = "Source: inkomen_crime.xlsx") %>%
  hc_add_series_map(usgeojson, car,
                    name = "state",
                    value = "total_crime",
                    joinBy = c("woename", "state")) %>%
  hc_mapNavigation(enabled = T)

Однако, я не могу запустить ее в R блестяще, с этимкод: 

ui <- fluidPage(

  selectInput(inputId = "stateDrop",
              label = "Selecteer een Staat",
              choices = all_states,
              selected = "California",
              multiple=TRUE),

  DT::dataTableOutput(outputId = "America")
)

server <- function(input, output) {
  output$America <- renderDataTable({

    population <- data %>%
      filter(State %in% input$stateDrop)

    datatable(data = population)
  })
}

Я чувствую, что мне нужно сделать ссылку на старшую диаграмму, но я ничего не могу найти в Интернете. Что я делаю неправильно? Пожалуйста, помогите.

...