Code
%>%
variable if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
Data - BDF
%>%
variable if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {
%>%
ICP_var if (is_html_output()) datatable(., filter = 'top', rownames = F) else .} {