# Inside server_local.R
# selectedrows <- downloadableTable(
# "object_id1",
# logger = ss_userAction.Log,
# filenameroot = "mydownload1",
# downloaddatafxns = list(csv = mydatafxn1, tsv = mydatafxn2),
# tabledata = mydatafxn3,
# rownames = FALSE,
# caption = "This is a great table! By: Me",
# selection = mydataRowIds,
# colnames = c("Area", "Delta", "Increase"),
# filter = "bottom",
# width = "150px",
# height = "50px",
# extensions = 'Buttons',
# plugins = 'natural',
# editable = TRUE,
# dom = 'Bfrtip',
# buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
# formatStyle = list(columns = c('Area'), color = 'red'),
# formatStyle = list(columns = c('Increase'), color = DT::styleInterval(0, c('red', 'green'))),
# formatCurrency = list(columns = c('Delta')))
# selectedrows is the reactive return value, captured for later use
Run the code above in your browser using DataLab