# \donttest{
# Path to las file
lasfile <- system.file("extdata", "tree_c1.laz", package="rTLsDeep")
# Reading las file
las<-lidR::readLAS(lasfile)
# Visualizing las file
suppressWarnings(lidR::plot(las))
# Rotating 3d point cloud around Z-axis
lasr<-tlsrotate3d(las,theta=180, by="x", scale=TRUE)
# Visualizing rotated las file
suppressWarnings(lidR::plot(lasr))
if (!rgl::rgl.useNULL())
rgl::play3d(rgl::spin3d(axis = c(0, 0, 1), rpm = 5), duration = 10)
# }
Run the code above in your browser using DataLab