Question

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

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'

请注意，我删除了它起作用的validate语句，这意味着在返回表时将呈现它。如果未返回任何表，则不会显示任何表。但是，我想合并验证消息。

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

DT :: renderTable闪亮验证

1 个答案: