rscripts/functions/extent_from_new_pro.R

extent_from_new_pro<-function(ext,pro.old=WGS84,pro.new=pro){
  r<-raster(ext)
  crs(r)<-pro.old
  
  spdf<-as(r,"SpatialPointsDataFrame")
  spdf<-spTransform(spdf,pro.new)
  ext<-extent(spdf)
  return(ext)
}
KNMI-DataLab/SkyViewFactor documentation built on May 30, 2019, 8 a.m.