Shiny - problem with renderTable for> 2000 lines of dataframe

Question

The brilliant> renderTable seems to work with the "big" data.frame. The code below works great

output$raw <- renderTable({
head(data, 2000)

})

But with a display of 7000 lines:

output$raw <- renderTable({
head(data, 7000)

})

Shiny is able to display everything, but then it seems that I am “losing the application” (as if I lost the connection or an error occurred), and then I get a gray screen.

I also looked at renderDataTable, which seems faster, but also suffers from the same problem with too large data.frames

Is there any brilliant way / options to solve this problem?

Many thanks!