library(htmltab)
library(DT)
setwd("C:/Users/subas/Syncplicity/MyProjects_IMP/MY_Papers_V2/TRB 2021/00 ALL_Codes/04232020")
cvd_rns <- read.csv("Covid19_TRB_RNS.csv")
datatable(
cvd_rns, extensions = c('Select', 'Buttons'), options = list(
select = list(style = 'os', items = 'row'),
dom = 'Blfrtip',
rowId = 0,
buttons = c('csv', 'excel')
),
selection = 'none'
)