retain coltab in wrap of raster

[eborgnine]

Currently the coltab is dropped when a raster is wrapped.
this could be fixed by adding to finalizeWrap

r@attributes$coltab = coltab(r)

and in the unwrap method
ext(rr) <- r@attributes$coltab

[rhijmans]

Thanks very much, I overlooked that. I now get:

library(terra)
s <- r <- rast(ncols=3, nrows=2, vals=1:6)
coltab(r) <- data.frame(value=1:6, col=rainbow(6, end=.9))
rast(wrap(r))
#class       : SpatRaster 
#dimensions  : 2, 3, 1  (nrow, ncol, nlyr)
#resolution  : 120, 90  (x, y)
#extent      : -180, 180, -90, 90  (xmin, xmax, ymin, ymax)
#coord. ref. : lon/lat WGS 84 
#source(s)   : memory
#color table : 1 
#name        : lyr.1 
#min value   :     1 
#max value   :     6