...I have a DT table (in a shiny app) that needs a source citation in the table footer. I have found a solution:
> sketch6 <- htmltools::withTags(table(
> tableHeader(outtabpov6),
> tableFooter(outCaption6)
> ))
>
> POVTabOut6 <-datatable(outtabpov6,
> container = sketch6,
> rownames = FALSE,
> caption = paste0("Table 6: Percent Below Federal Poverty Level by Age Trend: ",input$level),
> options = list(pageLength = 12,
> autowidth= TRUE,
> columnDefs = list(list(width = '300px', targets = "_all"))))
However, I need to modify the tableFooter output so that it spans the columns of the table. Currently, the footer created by tableFooter is limited to the space allocated for the first column:
Any ideas about how to modify the tableFooter command to create a spanned footer?
If there is another way to add a formatted footer to a DT, I'd appreciate heading about it.
TIA
AB