R 对象'；输出'；找不到

我创建了一个Shinydashboard并希望生成一个可输出的，但是我没有找到错误对象“output”。我完全不知道为什么会这样。在服务器功能中，我有一个“输出”，数据流也应该工作。你能帮助我吗？代码如下：

### Notwendige Pakete laden.

rm(list = ls())

if (!require('dplyr')) install.packages('dplyr'); library('dplyr')
if (!require('shiny')) install.packages('shiny'); library('shiny')
if (!require('shinydashboard')) install.packages('shinydashboard'); library('shinydashboard')
if (!require('car')) install.packages('car'); library('car')
if (!require('Hmisc')) install.packages('Hmisc'); library('Hmisc')
if (!require('ggplot2')) install.packages('ggplot2'); library('ggplot2')
if (!require('foreign')) install.packages('foreign'); library('foreign')
if (!require('tidyr')) install.packages('tidyr'); library('tidyr')
if (!require('highcharter')) install.packages('highcharter'); library('highcharter')
if (!require('DT')) install.packages('DT'); library('DT')

data <- readRDS("C:/Users/langma/Desktop/Mini/MP_MINI_Aftersales_Export.rds")
datalabels <- readRDS("C:/Users/langma/Desktop/Mini/var.labels.rds")

## app.R ##


ui <- dashboardPage(
    dashboardHeader(title = "Mini Dashboard"),
    dashboardSidebar(includeCSS("www/style.css"),
        sidebarMenu(
            h3("Filtereinstellungen"),
            selectizeInput("country", "Land", choices = data$v_2, selected = data$v_2, multiple = TRUE),
            selectizeInput("modell", "Automodell", choices = data$v_3, selected = data$v_3, multiple = TRUE),
            selectizeInput("sex", "Geschlecht", choices = data$v_2, selected = data$v_2, multiple = TRUE),
            selectizeInput("money", "Finanzierung", choices = data$v_18, selected = data$v_18, multiple = TRUE)
        )
    ),
    dashboardBody(
        fluidRow(
            tabBox(width = 6,
                title = "Touchpoints",
                # The id lets us use input$tabset1 on the server to find the current tab
                id = "tabset1", height = "500px",
                tabPanel("Tab1", tableOutput("anzahl")),
                tabPanel("Tab2", "Kaufort"),
                tabPanel("Tab3", "Privatkauf Anbahnung")
            ),
            tabBox(width = 6,
                   title = "Automotive", 
                   # The id lets us use input$tabset1 on the server to find the current tab
                   id = "tabset2", height = "500px",
                   tabPanel("Tab4", "Neu-/Gebrauchtwagen"),
                   tabPanel("Tab5", "Kaufort"),
                   tabPanel("Tab6", "Privatkauf Anbahnung")
            )
    )
))

server <- function(input, output, session) { }
        df <- reactive({
            filtereddata <- data %>%
                filter(v_2 %in% input$country)
        })

        output$anzahl <- renderTable({
            df()
        })


shinyApp(ui, server)

######Notwendige Pakete ladden。
rm（list=ls（））
如果（！require（'dplyr'））安装.packages（'dplyr'）；库（'dplyr'）
如果（！require（'shinny'））安装.packages（'shinny'）；库（‘闪亮’）
如果（！require（'shinydashboard'））安装.packages（'shinydashboard'）；图书馆（“shinydashboard”）
如果（！require（'car'））安装.packages（'car'）；图书馆（“汽车”）
如果（！require（'Hmisc'））安装.packages（'Hmisc'）；图书馆（“Hmisc”）
如果（！require（'ggplot2'））安装.packages（'ggplot2'）；库（'ggplot2'）
如果（！require（'foreign'））安装.packages（'foreign'）；图书馆（“外国”）
如果（！require（'tidyr'））安装.packages（'tidyr'）；图书馆（'tidyr'）
如果（！require（'highcharter'））安装.packages（'highcharter'）；图书馆（“高等特许经营权”）
如果（！require（'DT'））安装.packages（'DT'）；图书馆（'DT'）
数据创建一个测试，以便那些试图回答你问题的人可以测试他们的回答，这是很有帮助的

也就是说，线索是你的应用程序找不到输出对象，这意味着它不在shinyapp中所有东西都需要的反应式环境中。唯一可行的方法是如果输出表实际上不在服务器函数中。将括号编辑为类似这样的内容，然后查看其含义：

server <- function(input, output, session) {
        df <- reactive({
            filtereddata <- data %>%
                filter(v_2 %in% input$country)
        })

        output$anzahl <- renderTable({
            df()
        })
}

服务器