knitr::opts_chunk$set( echo = FALSE, message = FALSE, warning = FALSE, comment = "" ) library(dplyr) options( DT.options = list( dom = "ftip" ) )
params$table_1 %>% arrange(cluster, desc(gene_ratio)) %>% DT::datatable(rownames = FALSE)
params$table_2 %>% arrange(cluster) %>% DT::datatable(rownames = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.