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