R app very slow using lapply() and read_html()

Question

I wrote an app with R Shiny, that helps me to webscrap pictures, prices & sizes from a database containing all the url and displays results by columns.

se