if(interactive()) {
src_dir <- system.file("extdata", package="MeshAgreement")
ff <- list.files(src_dir, pattern="^Obs01", full.names=TRUE)
meshL <- read_mesh_obs(ff, reconstruct="AFS")
get_mesh_info_obs(meshL)
}
Run the code above in your browser using DataLab