Все блестящее приложение становится белым после попытки отформатировать таблицу данных - PullRequest
Новая
       7

Все блестящее приложение становится белым после попытки отформатировать таблицу данных

0 голосов
/ 19 июня 2019

По какой-то причине при попытке добавить formatStyle к моему объекту таблицы данных в этом конкретном примере все приложение не работает. Нет сообщений об ошибках, просто все выходы ничего не отображают. Единственное, что я вижу, это кнопки и пользовательский ввод.

Я пробовал два разных метода выполнения того, что я хочу. Оба способа приводят к отсутствию сообщений об ошибках и выводу белого цвета.

Я использую функцию для создания таблицы данных в приложении. 

create_platform_table <- function(count_platform, row_name) {

   background <- "value == 'No Platform' ? '#5EDD6B' : value != 'else' ? '#FFBF33' : ''"
   class(background) <- "JS_EVAL"

   my_vals <- as.character(unique(count_platform()$PLATFORM))
   my_colors <- ifelse(my_vals == 'No platform', 'red', 'blue')

   data <- count_platform[,c('PLATFORM', 'Population')]

   dat <- datatable(data, selection = list(mode = 'single', target = 'cell'),
                    options = list(
                      rowCallback = JS("function(r,d) {$(r).attr('height', '15px')}")),
                    callback = JS(gsub("\n", "", paste0("table.on('click.dt', 'td', function() {
                                                        var row_=table.cell(this).index().row;
                                                        var col=table.cell(this).index().column;
                                                        var rnd= Math.random();
                                                        var data = [row_, col, rnd];
                                                        Shiny.onInputChange(", row_name, ",data );
 });"))) ) %>%
     formatStyle('PLATFORM', target = 'row', 
                 backgroundColor = styleEqual(my_vals, my_colors))

   return(dat)

}

Вышеприведенное работает нормально без части кода%>% formatStyle.

Это поставило меня в тупик, потому что я отлично использовал formatStyle для другой таблицы данных. И самое странное, что попытка использовать formatStyle здесь останавливает другие выходные данные, которые не имеют никакого отношения к выходным данным таблицы данных, которые я пытаюсь сделать.

Что я делаю не так? Или это странная ошибка?

...