DT :: renderTable блестящая проверка - PullRequest
Новая
       6

DT :: renderTable блестящая проверка

0 голосов
/ 25 июня 2018

Я хотел бы проверить блестящие данные. Однако приведенное ниже утверждение проверки не работает. Что не так 

output$tablepermanovapw <- DT::renderDataTable(

      validate(
        need(values$pwsummarydisplay ==1 , "Need at least 1 row")),

      DT::datatable(values$pw) %>% formatStyle(
      names(values$pw),
      filter = 'top',
      backgroundColor = styleInterval(0.05, c('orange','white'))
    ))

Вывод выглядит следующим образом, когда таблица содержит хотя бы одну строку. Если таблица пуста, сообщение возвращается правильно. 

Warning: Error in &&: invalid 'x' type in 'x && y'

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

1 Ответ

0 голосов
/ 25 июня 2018

Хорошо, это была проблема с отсутствующими скобками и дополнительными запятыми .... приведенный выше код работает .... 

output$tablepermanovapw <- DT::renderDataTable({



         validate(
            need(values$pwsummarydisplay ==1 , "Need at least 1 row"))

          DT::datatable(values$pw) %>% formatStyle(
          names(values$pw),
          filter = 'top',
          backgroundColor = styleInterval(0.05, c('orange','white')))
        )
    })
...