library(raster)
Pro <- function(s) {
  df <- stack(s)
}

files <- dir("path", recursive=TRUE, full.names=TRUE, pattern=".tif$")
agg <- sapply(files, Pro)

df <- as.data.frame(agg)