Arne pine regeneration analysis

Section 1

Sub section

library(mapview)
library(sf)
library(dplyr)
library(giscourse)
path<-"/home/arne"
a<-dir(path,pattern="gpx")
a<-sprintf('%s/%s',path,a)


f<-function(x){
  d<-st_read(x,layer = "waypoints")
  d$group<-x
  d
  }

d<- do.call("rbind",lapply(a,f))

d %>% select(c("name", "group","time")) ->d

mapview(d, zcol='group',burst=TRUE, legend=FALSE) ->mp

mp@map %>% leaflet.extras::addFullscreenControl()