Fix #638

r-lidar · Nov 16, 2022 · 2a16e7f · 2a16e7f
1 parent d9c4aac
commit 2a16e7f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -2,6 +2,7 @@ If you are viewing this file on CRAN, please check [the latest news on GitHub](h
 
 ## lidR v4.0.2 (Release date: 2022-09-15)
 
+- Fix: [#638](https://github.com/r-lidar/lidR/issues/638). `unormalize_height()` removes extra_bytes in VLR.
 - Fix: [#637](https://github.com/r-lidar/lidR/issues/637). `print(las)` works even when the CRS is not recognized by `sf`.
 - New: `dsmtin` and `pitfree` gain an argument `highest`. This option was enable by default in previous releases. There is now an option to disable it.
 - Fix: [#580](https://github.com/r-lidar/lidR/issues/580) and [#622](https://github.com/r-lidar/lidR/issues/622)  `normalize_height()` and `segment_trees` work in parallel with `SpatRaster`.

diff --git a/R/normalize_height.R b/R/normalize_height.R
@@ -137,7 +137,7 @@ unnormalize_height = function(las)
   if ("Zref" %in% names(las))
   {
     las@data[["Z"]] <- las@data[["Zref"]]
-    las@data[["Zref"]] <- NULL
+    las <- remove_lasattribute(las, "Zref")
     las <- lasupdateheader(las)
   }
   else

diff --git a/lidR.Rproj b/lidR.Rproj
@@ -17,6 +17,7 @@ StripTrailingWhitespace: Yes
 
 BuildType: Package
 PackageUseDevtools: Yes
+PackageCleanBeforeInstall: No
 PackageInstallArgs: --no-multiarch --with-keep.source
 PackageCheckArgs: --as-cran
 PackageRoxygenize: rd,collate,namespace,vignette