Только таблица в rpivotTable - PullRequest
Новая
       26

Только таблица в rpivotTable

1 голос
/ 05 мая 2020

Я использую пакет rpivotTable в приложении Shiny, и я хотел бы, чтобы у пользователей был выбор только «Таблица» (без диаграмм)
Аргумент RenderName используется только для выбора отображения по умолчанию. . 

output$pivot <- renderRpivotTable(
    rpivotTable(iris, 
                rendererName = "Table" )
    )

Заранее большое спасибо!

1 Ответ

1 голос
/ 06 мая 2020

Здесь есть несколько проблем.

  • вы можете указать средства визуализации с помощью аргумента анонимов renderers в rpivotTable(). У меня есть код JS, форма здесь .
  • , однако при выборе только одного варианта возникает ошибка. В этом случае rpivotTable() снова оборачивает аргумент в список (см. Вызов Map() в исходном коде функции), и пересылка на JS не выполняется.

Таким образом, я учел эта проблема и немного расширила функцию. Поэкспериментируйте с агрегаторами / рендерерами, чтобы увидеть, как они ведут себя иначе, чем исходная функция rpivotTable(). 

# define own function
my_rpivotTable <- function (data, rows = NULL, cols = NULL, aggregatorName = NULL, 
          vals = NULL, rendererName = NULL, sorter = NULL, exclusions = NULL, 
          inclusions = NULL, locale = "en", subtotals = FALSE, ..., 
          width = 800, height = 600, elementId = NULL) 
{
  if (length(intersect(class(data), c("data.frame", "data.table", 
                                      "table", "structable", "ftable"))) == 0) {
    stop("data should be a data.frame, data.table, or table", 
         call. = F)
  }
  if (length(intersect(c("table", "structable", "ftable"), 
                       class(data))) > 0) 
    data <- as.data.frame(data)
  params <- list(rows = rows, cols = cols, aggregatorName = aggregatorName, 
                 vals = vals, rendererName = rendererName, sorter = sorter, 
                 ...)
  params <- Map(function(p) {
    # added to the class check -------------------------------------------------
    if (length(p) == 1 && class(p[[1]]) != "JS_EVAL") {
      p = list(p)
    }
    return(p)
  }, params)
  par <- list(exclusions = exclusions, inclusions = inclusions)
  params <- c(params, par)
  params <- Filter(Negate(is.null), params)
  x <- list(data = data, params = params, locale = locale, 
            subtotals = subtotals)
  htmlwidgets::createWidget(name = "rpivotTable", x, width = width, 
                            height = height, elementId = elementId, package = "rpivotTable")
}

# create the pivot table
my_rpivotTable(
  expand.grid(LETTERS, 1:3),
  aggregatorName = "Count",
  aggregators = list(Sum = htmlwidgets::JS('$.pivotUtilities.aggregators["Sum"]'),
                     Count = htmlwidgets::JS('$.pivotUtilities.aggregators["Count"]')),
  rendererName = "fancyTable",
  renderers = list(fancyTable = htmlwidgets::JS('$.pivotUtilities.renderers["Table"]'))

)
...