Data frame error - "replacement has 4 rows, data has...."

Can anyone help with troubleshooting/resolving the error here in R Studio?

dem_mod <- maxExtentMap(dem, 1300, 2600)
#now create a map 
dem_mod_map <- levelplot(dem_mod, margin = F, col.regions= c("khaki", "darkgreen"),
                         xlab = "Longitude",
                         ylab = "Latitude",
                         main = "DEM model")
#create the plot and add the road
dem_mod_map + roadLayer
lc.rast <- raster('Data/SatelliteData/land_class.tif')      #read previously saved raster for use in this script
lc.rast <- lcRatify(lc.rast)

 Show Traceback
 Rerun with Debug
 Error in `$<`(`*tmp*`, "code", value = c("Crops", "Desert",  : 
  replacement has 4 rows, data has 5261023 
lc_map <- levelplot(lc.rast, margin=F, col.regions= c("olivedrab1", "khaki", "darkgreen", "darkblue"),
                    xlab = "Longitude",
                    ylab = "Latitude",
                    main = "Observed Land Cover")


Thank you.

Could you please turn this into a self-contained reprex (short for minimal reproducible example)? It will help us help you if we can be sure we're all working with/looking at the same stuff.

If you've never heard of a reprex before, you might want to start by reading the help page. The reprex dos and don'ts are also useful.

For pointers specific to the community site, check out the reprex FAQ, linked to below.