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'