使用 table() 函数时闪亮的仪表板“unique.default(x, nmax = nmax) 中的错误”

编程问答 2022-05-30

问题描述

我试图在闪亮的仪表板上绘制一个相当简单的图，但是我收到了这个错误：

 Warnung: Error in unique.default: unique() kann nur auf Vektoren angewendet werden
  51: unique.default
  49: factor
  48: table
  47: server [C:/.../Dashboard.R#38]
Error in unique.default(x,nmax = nmax) : 
  unique() kann nur auf Vektoren angewendet werden

我的代码看起来像这样（与 hello world 示例几乎没有任何不同）：

## app.R ##
library(shiny)
library(shinydashboard)

# my libraries #
library(dplyr)

ui <- dashboardPage(
  dashboardHeader(title = "My Dashboard"),dashboardSidebar(),dashboardBody(fluidRow(
    Box(plotOutput("plot1",height = 400)),Box(title = "Controls",sliderInput("slider","Years:",1970,2017,2000))
  ))
)

server <- function(input,output) {
  dat <- read.csv("filename.csv",sep = ",",header = TRUE,encoding = "UTF-8",fill = TRUE)
  
  dat <-
    reactive({
      dat %>%
        filter(year > input$slider) %>%
        select(year)
    })
  
  tab <- table(dat)
  
  output$plot1 <- renderPlot({
    plot(
      tab,main = "My Main Title",ylab = "Amount",xlab = "Year",type = "o"
    )
  })
}

shinyApp(ui,server)

错误必须出在我对 table() 函数的使用中（因为它在原始代码中的第 #38 行），但错误消息太不具体了，我无法找出问题所在...

有人建议如何解决这个问题吗？

解决方法

您的 dat 对象是响应式的，因此请尝试调用 tab <- table(dat())。此外，将响应式调用放置在渲染函数中，如下所示：

  output$plot1 <- renderPlot({
    tab <- table(dat())
    plot(
      tab,main = "My Main Title",ylab = "Amount",xlab = "Year",type = "o"
    )
  })

我还避免将变量名作为一般编码实践重用。

dplyrrrshinyshinydashboard