library(LandUseR)
library(mapview)
pmaps <- LandUseR:::pra_check(paris = TRUE, disk = TRUE)
pmaps$pras
you can click on the map to find out the name of the PRA.
pmaps$prices[["1950"]]
pmaps$prices[["1975"]]
pmaps$prices[["1990"]]
pmaps$prices[["2000"]]
pmaps$prices[["2015"]]