Dear Brian
Thank you for your response.
Below I show where the data object is located and further below the server code to load the data into the table.
library(tidyverse)
library(shiny)
library(DT)
library(shinythemes)
full_set
funded
unfunded
not_available
# Full dataset
output$datatable <- DT::renderDataTable({
if(input$show_data) {
DT::datatable(data = full_set,
options = list(pageLength = 3),
rownames = FALSE)
}
})