R/read.path.amira.r

In Arothron/ctrlR: Functions used in my PhD thesis

#' read.path.amira
#'
#' This function extract and order the coordinate matrix from a surface path file deriving from Amira 
#' @param path.name character: path of surface path .ascii extension file
#' @return data numeric: a kxd matrix with xyz coordinates 
#' @author Antonio Profico, Alessio Veneziano
#' @export
read.path.amira=function(path.name){
skip_1 = which(readLines(path.name,  n = 9999999) == "@1")
skip_2 = which(readLines((path.name), n = 9999999) == "@2")
vertices = read.table((path.name), skip = skip_2)
numbering = read.table((path.name), skip = skip_1, nrow = dim(vertices)[1]) 
data=vertices[(numbering[,1]+1),]
rownames(data)=c(1:dim(data)[1])
return(data)}