DT::renderTable 闪亮验证答案

【问题标题】：DT::renderTable shiny validateDT::renderTable 闪亮验证
【发布时间】：2018-12-03 20:20:48
【问题描述】：

我想验证一个闪亮的数据表。但是下面的验证语句似乎不起作用？？？？怎么了

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'

请注意，我删除了它起作用的验证语句，这意味着当返回表时，它会被呈现。如果没有返回表格，则不显示表格。但是我想合并验证消息。

【问题讨论】：

嗨。请包含您的代码或您的代码和数据的简约且可重复的示例。否则你将很难找到答案。
或者至少解释一下values$pwsummarydisplay是如何计算的...
values$pwsummarydisplay 是一个反应值，当表存在于先前的计算中时填充为 1。因此，如果表存在则为 1，如果表不存在则返回 0。
我认为 DT::renderDatTable 无法正确处理验证！！！！

标签： r shiny dt

【解决方案1】：

好的，这是缺少括号和多余逗号的问题....上面的代码有效....

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

【讨论】：