> bm_print(corn, compress = "v")
                
    ▄██▄▄██     
   ████████▄    
   ▄█████████▄  
 ▄████████████  
 ▀▀▀ ▀████████  
       ▀████▀   
                

> corn_t <- bm_trim(corn, top = 8L)
> print(inherits(corn_t, "nativeRaster"))
[1] TRUE

> bm_print(corn_t, compress = "v")
 ▄████████████  
 ▀▀▀ ▀████████  
       ▀████▀   
                

> corn_r <- bm_trim(corn, right = 8L)
> bm_print(corn_r, compress = "v")
        
    ▄██▄
   █████
   ▄████
 ▄██████
 ▀▀▀ ▀██
       ▀
        

> corn_b <- bm_trim(corn, bottom = 8L)
> bm_print(corn_b, compress = "v")
                
    ▄██▄▄██     
   ████████▄    
   ▄█████████▄  

> corn_l <- bm_trim(corn, left = 8L)
> bm_print(corn_l, compress = "v")
        
▄██     
███▄    
█████▄  
██████  
██████  
████▀   
        

