File Creation Day of Year is zeroed by write.las

[Jean-Romain]

library(rlas)

lasfile <- system.file("extdata", "example.las", package="rlas")

lashead <- read.lasheader(lasfile)
lasdata <- read.las(lasfile)

lashead[["File Creation Year"]] <- as.numeric(format(Sys.time(), "%Y"))
lashead[["File Creation Day of Year"]] <- as.numeric(format(Sys.time(), "%j"))

f = tempfile(fileext = ".las")

write.las(f, lashead, lasdata)

lashead <- read.lasheader(f)
lashead[["File Creation Year"]]
#> [1] 2021
lashead[["File Creation Day of Year"]]
#> [1] 0

^{Created on 2021-03-10 by the reprex package (v1.0.0)}