Rhighr中的图表闪亮

我正在尝试在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 Shining中运行它：

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)
  })
}

---

我觉得我需要参考海图，但我在网上找不到任何东西。我做错了什么？请提供帮助。

您好，您能提供所有软件包和数据以便我运行图表吗？我收到以下错误：lintappDir、appFiles、appPrimaryDoc中的错误：取消部署：项目布局无效。项目应具有以下布局之一：1应用程序基目录中的'shinny.R'和'ui.R'，2'应用程序基目录中的“shinny.R”和“www/index.html”，3“app.R'或单个文件shinny.R文件，4。R Markdown.Rmd文档，5。静态HTML.HTML或PDF.PDF文档。6. 'plumber.R“API description.R文件7”entrypoint.R'水管工启动脚本8。tensorflow保存的模型我是Highcharts JavaScript开发人员，我们不支持R Highcharter和Shining-我不太了解R，所以在完全复制图表之前，我不会帮助您解决错误。为此，我需要您正在使用的软件包列表和数据。如果您只是询问如何在Shiny中运行图表，您可以在我之前的回答中找到一些示例：

library(shiny)
library(highcharter)
library(tidyverse)

# Define UI for application 
ui <- fluidPage(

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

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

    highchartOutput(outputId = 'plot')
)

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

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

        datatable(data = population)
    })

    output$plot <- renderHighchart({
        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)
    })
}

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