More exports

Author: Jean-Romain

DESCRIPTION

@@ -3,7 +3,7 @@ Type: Package
 Title: Read and Write 'las' and 'laz' Binary File Formats Used for Remote Sensing Data
 Version: 1.8.2
 Authors@R: c(
-    person("Jean-Romain", "Roussel", email = "info@r-lidar.com", role = c("aut", "cre", "cph")),
+    person("Jean-Romain", "Roussel", email = "jean-romain.roussel.1@ulaval.ca", role = c("aut", "cre", "cph")),
     person("Florian", "De Boissieu", email = "", role = c("aut", "ctb"), comment = "Enable the support of .lax file and extra byte attributes"),
     person("Martin", "Isenburg", email = "", role = "cph", comment = "Is the author of the LASlib and LASzip libraries"),
     person("David", "Auty", email = "", role = c("ctb"), comment = "Reviewed the documentation"),

NAMESPACE

@@ -2,6 +2,7 @@
 
 export(check_las_compliance)
 export(check_las_validity)
+export(find_epsg_position)
 export(fwf_interpreter)
 export(header_add_extrabytes)
 export(header_add_extrabytes_manual)
@@ -11,6 +12,8 @@ export(header_get_wktcs)
 export(header_set_epsg)
 export(header_set_wktcs)
 export(header_update)
+export(help_filter)
+export(help_transform)
 export(is_NIR_in_valid_format)
 export(is_RGB_in_valid_format)
 export(is_ScanAngle_in_valid_format)
@@ -68,7 +71,7 @@ export(is_valid_scalefactors)
 export(is_valid_version)
 export(read.las)
 export(read.lasheader)
-export(stream.las)
+export(read_and_write.las)
 export(true_size)
 export(write.las)
 export(writelax)

R/header_tools.r

@@ -417,6 +417,23 @@ header_set_wktcs = function(header, WKT)
   return(header)
 }
 
+#' @export
+#' @rdname crs_tools
+find_epsg_position = function(header)
+{
+  tags = header[["Variable Length Records"]][["GeoKeyDirectoryTag"]][["tags"]]
+
+  for (i in seq_along(tags))
+  {
+    if (tags[[i]]$key == 3072)
+      return(i)
+  }
+
+  return(0L)
+}
+
+
+# Internal for lidR compatibility
 where_is_epsg = function(header)
 {
   tags = header[["Variable Length Records"]][["GeoKeyDirectoryTag"]][["tags"]]

R/help.R

@@ -0,0 +1,17 @@
+#' LASlib filter and transform operation
+#'
+#' Print the existing LASlib filter and transform commands
+#'
+#' @export
+#' @rdname LASlibdoc
+help_filter = function()
+{
+  lasfilterusage()
+}
+
+#' @export
+#' @rdname LASlibdoc
+help_transform = function()
+{
+  lastransformusage()
+}

R/readLAS.r

@@ -130,7 +130,7 @@ read.lasheader = function(file)
 #' @param ifiles,ofile characters. Streaming operations.
 #' @param polygons list. Internal use only.
 #' @export
-stream.las = function(ifiles, ofile = "", select = "*", filter = "", polygons = list())
+read_and_write.las = function(ifiles, ofile = "", select = "*", filter = "", polygons = list())
 {
   stream    <- ofile != ""
   ifiles    <- enc2native(normalizePath(ifiles))
@@ -160,4 +160,5 @@ stream.las = function(ifiles, ofile = "", select = "*", filter = "", polygons =
   return(data)
 }
 
+stream.las = read_and_write.las