Avoid a time-consuming step in a reactive expression in R Shiny

Question

In my Shiny app, users can upload a file which is stored as a reactive dataframe. Inside the reactive expression that is shown below, I call an external time-co