DT :: renderTable閃亮驗證

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