我正在尝试将迷你图添加到一个简单的可反应示例中，但是当我尝试这样做时表格返回空白。
我一直在关注文档中的这个例子。
这是我正在使用的示例数据：
PartName <- c("550-1", "550-2", "550-3", "550-4")
Orders <- c(50, 35, 2, 18)
condensed <- data.frame(PartName, Orders)
PartName <- c("550-1", "550-1", "550-1", "550-1", "550-1", "550-2", "550-2", "550-2", "550-2", "550-3", "550-4", "550-4", "550-4")
Size <- c(10, 10, 10, 10, 10, 15, 5, 10, 5, 2, 6, 6, 6)
Date <- as.Date(c("2020/10/01", "2020/12/01", "2021/01/01", "2021/03/01", "2021/04/01", "2020/12/01", "2021/03/01", "2021/04/01", "2021/06/01", "2020/11/01", "2020/10/01", "2020/11/01", "2020/12/01"))
orders <- data.frame(PartName, Size, Date)
这就是我传递给可反应的数据的外观：
这是闪亮的应用程序：
library(shiny)
library(shinydashboard)
library(sparkline)
library(dplyr)
library(tidyr)
PartName <- c("550-1", "550-2", "550-3", "550-4")
Orders <- c(50, 35, 2, 18)
condensed <- data.frame(PartName, Orders)
PartName <- c("550-1", "550-1", "550-1", "550-1", "550-1", "550-2", "550-2", "550-2", "550-2", "550-3", "550-4", "550-4", "550-4")
Size <- c(10, 10, 10, 10, 10, 15, 5, 10, 5, 2, 6, 6, 6)
Date <- as.Date(c("2020/10/01", "2020/12/01", "2021/01/01", "2021/03/01", "2021/04/01", "2020/12/01", "2021/03/01", "2021/04/01", "2021/06/01", "2020/11/01", "2020/10/01", "2020/11/01", "2020/12/01"))
orders <- data.frame(PartName, Size, Date)
df <- orders %>%
dplyr::mutate(Date = format(Date, "%Y-%m-%d")) %>%
dplyr::group_by(PartName) %>%
tidyr::complete(Date = c('2020-09-01', '2020-10-01', '2020-11-01', '2020-12-01', '2021-01-01', '2021-02-01', '2021-03-01', '2021-04-01','2021-05-01', '2021-06-01', '2021-07-01', '2021-08-01'), fill = list(Size = 0)) %>%
as.data.frame() %>%
dplyr::group_by(PartName) %>%
dplyr::summarize(ORDRS = paste0(Size, collapse = ",")) %>%
dplyr::group_by(PartName) %>%
dplyr::summarise(ORDRS = list(ORDRS))
data <- condensed %>%
left_join(df, by = c("PartName" = "PartName"))
ui <- dashboardPage(
dashboardHeader(title = "Title"),
dashboardSidebar(
sidebarMenu(),
collapsed = TRUE
),
dashboardBody(
fluidRow(
box(
title = "Table with sparklines", status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12,
reactableOutput("table")
)
)
)
)
server <- function(input, output) {
output$table <- renderReactable({
reactable(data, columns = list(
PartName = colDef(name = PN),
Orders = colDef(name = Orders),
ORDRS = colDef(cell = function(values) {
sparkline(values, type = "bar", chartRangeMin = 0, chartRangeMax = 12)
})
# ORDRS = colDef(cell = function(value, index) {
# sparkline(data$ORDRS[[index]], type = "bar", chartRangeMin = 0, chartRangeMax = 12)
# })
))
})
}
shinyApp(ui = ui, server = server)
结果：
如果删除此部分：
ORDRS = colDef(cell = function(values) {
sparkline(values, type = "bar", chartRangeMin = 0, chartRangeMax = 12)
})
然后表格渲染得很好。
从reactable 的参考手册中，这是函数cell参数的定义colDef：
cell：自定义单元格渲染器。将单元格值、行索引和列名作为参数的 R 函数，或将单元格信息对象作为参数的 JS() 函数。
我看不出有什么问题。你能帮我找出我的错误吗？
此致。
