r - スパークラインは空白のテーブルを返します

Question

単純な反応可能な例にスパークラインを追加しようとしていますが、そうしようとするとテーブルが空白になります。

これは私が使用しているサンプルデータです:

    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)

これは、reactable に渡すデータの外観です。

そして、これは光沢のあるアプリです:

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

その後、テーブルは正常にレンダリングされます。

反応可能なリファレンスマニュアルから、これは関数のcell引数の定義ですcolDef:

cell: カスタムセルレンダラー。セル値、行インデックス、および列名を引数として取る R 関数、またはセル情報オブジェクトを引数として取る JS() 関数。

何が悪いのかわかりません。私の間違いを見つけるのを手伝ってもらえますか？

よろしくお願いします。

score 0 · Accepted Answer

ばかげた間違い、sparkline文字リストではなく数字リストが必要です。

変化する：

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

為に：

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::summarise(ORDRS = list(Size))

そして今、それは大丈夫です：

r - スパークラインは空白のテーブルを返します

1 に答える 1

Related

Reference