# NOT RUN {
r <- rast()
isLonLat(r)
isLonLat(r, global=TRUE)
crs(r) <- ""
isLonLat(r)
isLonLat(r, perhaps=TRUE, warn=FALSE)
crs(r) <- "+proj=lcc +lat_1=48 +lat_2=33 +lon_0=-100 +ellps=WGS84"
isLonLat(r)
# }
Run the code above in your browser using DataLab