export

Author: Jean-Romain

NAMESPACE

@@ -3,3 +3,5 @@
 export(plot)
 export(plot_xyzrgb)
 importClassesFrom(lidR,LAS)
+importFrom(Rcpp,evalCpp)
+useDynLib(lidRviewer, .registration = TRUE)

R/RcppExports.R

@@ -1,7 +1,7 @@
 # Generated by using Rcpp::compileAttributes() -> do not edit by hand
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
-lidRviewer <- function(df) {
-    invisible(.Call('_lidRviewer_lidRviewer', PACKAGE = 'lidRviewer', df))
+viewer <- function(df) {
+    invisible(.Call(`_lidRviewer_viewer`, df))
 }
 

R/plot.R

@@ -9,6 +9,8 @@
 #' @export
 #' @method plot LAS
 #' @importClassesFrom lidR LAS
+#' @useDynLib lidRviewer, .registration = TRUE
+#' @importFrom Rcpp evalCpp
 setGeneric("plot", function(x, y, ...) standardGeneric("plot"))
 
 #' @rdname plot
@@ -19,7 +21,7 @@ setMethod("plot", signature(x = "LAS", y = "missing"), function(x, y, ...)
 
 plot.LAS <- function(x, y, ...)
 {
-  lidRviewer(x@data)
+  viewer(x@data)
 }
 
 #' @aliases plot
@@ -77,5 +79,5 @@ plot_xyzrgb <- function(x, y, z, r, g, b, id = NULL, size = 4)
   message("Point cloud viewer must be closed before to run other R code")
 
   df = data.frame(X = x, Y = y, Z = z, R = r, G = g, B = b)
-  lidRviewer(df)
+  viewer(df)
 }

src/RcppExports.cpp

@@ -10,19 +10,19 @@ Rcpp::Rostream<true>&  Rcpp::Rcout = Rcpp::Rcpp_cout_get();
 Rcpp::Rostream<false>& Rcpp::Rcerr = Rcpp::Rcpp_cerr_get();
 #endif
 
-// lidRviewer
-void lidRviewer(DataFrame df);
-RcppExport SEXP _lidRviewer_lidRviewer(SEXP dfSEXP) {
+// viewer
+void viewer(DataFrame df);
+RcppExport SEXP _lidRviewer_viewer(SEXP dfSEXP) {
 BEGIN_RCPP
     Rcpp::RNGScope rcpp_rngScope_gen;
     Rcpp::traits::input_parameter< DataFrame >::type df(dfSEXP);
-    lidRviewer(df);
+    viewer(df);
     return R_NilValue;
 END_RCPP
 }
 
 static const R_CallMethodDef CallEntries[] = {
-    {"_lidRviewer_lidRviewer", (DL_FUNC) &_lidRviewer_lidRviewer, 1},
+    {"_lidRviewer_viewer", (DL_FUNC) &_lidRviewer_viewer, 1},
     {NULL, NULL, 0}
 };
 

src/lidRviewer.cpp

@@ -5,7 +5,7 @@ const float zFar = 100000;
 const Uint32 time_per_frame = 1000 / 30;
 
 // [[Rcpp::export]]
-void lidRviewer(DataFrame df)
+void viewer(DataFrame df)
 {
   bool run = true;