Shiny app with expensive operation - still pauses with datatableproxy

expensive_operation_datatableproxy.R

library(shiny)
library(DT)
library(dplyr)


ui <- fluidPage(
  DTOutput("myTable")
)

server <- function(input, output, session){
  
  
  
  loopData <- reactive({
    invalidateLater(1000, session)
    get_data()
  })
  
  output$myTable = DT::renderDataTable({
    isolate(loopData())
  })
  
  proxy <- dataTableProxy('myTable', deferUntilFlush = TRUE)
  
  observe({
    replaceData(proxy, loopData(), resetPaging = FALSE, clearSelection = FALSE)
  })

}

get_data <- function(){
  expensive_operation()
  tibble(Value = rnorm(20))
}

expensive_operation <- function(){
  invisible(rnorm(10000000))
}

shinyApp(ui, server)