Самый быстрый способ конвертировать растр в фрейм данных (с данными xy)

Question

Я ищу наиболее эффективный способ преобразования любого Raster* объекта в data.frame при сохранении данных xy.

library(raster)
library(sp) 

# Read in our raster stack 
s <- readRDS(gzcon(url("http://web.pdx.edu/~porlando/stack.RDS")))

# Converting to data.frame takes ~6 minutes! 
df <- as.data.frame(s, xy = T, na.rm = T)