错误：渲染 ValueBox 时需要类为“shiny.tag”的对象

Question

我闪亮的仪表板应用程序中有两个 R 文件。global.R和app.R。

在我下面global.R有以下结构。

ShedArea <- c("Shed 1", "Shed 2", "Shed 3","Shed 4")
SeedsReceived_KGS <- c(14,24,8,19)
DF <- data.frame(ShedArea,SeedsReceived_KGS,stringsAsFactors = FALSE)
shed_area <- unique(DF$ShedArea)
mean_seeds <- mean(DF$SeedsReceived_KGS)

在 中app.R，我实现了一个pickerInput可以选择单个或所有棚屋的地方，以及一个valueBoxOutput显示所选棚屋或所有棚屋的平均值的。

的内容app.R。

用户界面

source("global.R")
valueBoxOutput("av_seeds_received")
pickerInput(inputId = "shed", label = "Select Shed", choices = shed_area, selected = shed_area, options = list(`actions-box` = TRUE),multiple = TRUE)

服务器

output$av_seeds_received <- renderValueBox({
filter(DF, ShedArea==input$shed) %>%
valueBox("Seeds Received", round(mean_seeds, digits=2))
})

当我runApp()，我得到一个Error: Expected an object with class 'shiny.tag'.

我该如何解决这个问题，以便在选择棚子时显示收到的种子的平均值？

Answer 1

这可能无法解决OP的确切问题，但当我icon = ("keyboard")在选项卡代码中（而不是icon = icon("keyboard")）时，我也遇到了这个神秘的错误

把这个留在这里，以防其他犯这个错误的人像我一样从谷歌上找到这个问题。