lets start with a base case where the data is local, and see if this performance is ok, and whether your code for this is in good order.
Here is a simple example of showing 1milx52
library(shiny)
library(DT)
# Define UI for application that draws a histogram
ui <- fluidPage( dataTableOutput("testdtout")
)
examplem <- matrix(data = runif(n = 52*10^6), nrow=10^6,ncol=52)
example_df <- as_tibble(examplem)
# Define server logic required to draw a histogram
server <- function(input, output) {
output$testdtout <- DT::renderDataTable({
example_df
})
}
# Run the application
shinyApp(ui = ui, server = server)