# NOT RUN {
require(uavRst)
require(link2GI)
# create and check the links to the GI software
giLinks<-list()
giLinks$saga<-link2GI::linkSAGA()
if (giLinks$saga$exist) {
# proj subfolders
projRootDir<-tempdir()
unlink(paste0(projRootDir,"*"), force = TRUE)
projsubFolders<-c("data/","data/ref/","output/","run/","las/")
paths<-link2GI::initProj(projRootDir = projRootDir,
projFolders = projsubFolders,
global = TRUE,
path_prefix = "path_")
setwd(paste0(projRootDir,"run"))
# get some colors
pal = mapview::mapviewPalette("mapviewTopoColors")
# get the data
utils::download.file(url="https://github.com/gisma/gismaData/raw/master/uavRst/data/lidar.las",
destfile="lasdata.las")
# create a DSM based on a uav point cloud
pc3DTM <- pc3D_dtm(lasDir = "lasdata.las",
gisdbasePath = projRootDir,
projsubFolders = projsubFolders,
thinGrid = 1.,
splineNumber = 5 ,
gridSize = 0.5,
giLinks = giLinks)
mapview::mapview(pc3DTM[[1]])
}
# }
Run the code above in your browser using DataLab