# NOT RUN {
r <- rast(nrows=4, ncols=4)
values(r) <- 1:ncell(r)
plot(r)
text(r)
plot(r)
text(r, halo=TRUE, hc='blue', col='white', hw=0.2)
#plot(r, col=bpy.colors(5))
#text(r, fun=function(x){x<5 | x>12}, col=c('red', 'white'), vfont=c("sans serif", "bold"), cex=2)
# }
Run the code above in your browser using DataLab