R/point.coords.as.dataframe.R

In DistanceDevelopment/dssd: Distance Sampling Survey Design

point.coords.as.dataframe <- function(samplers){
  # Internal function which transforms the samplers into a
  # dataframe suitable for writing to csv file.
  all.transects <- data.frame(transect = NULL, strata = NULL, x = NULL, y = NULL)
  for(i in seq(along = samplers[[1]])){
    tr <- samplers$transect[i]
    st <- samplers$strata[i]
    if(inherits(samplers$geometry[i][[1]], "POINT")){
      coords <- as.numeric(samplers$geometry[i][[1]])
      temp <- data.frame(transect = tr,
                         strata = st,
                         x = coords[1],
                         y = coords[2])
      all.transects <- rbind(all.transects,temp)
    }else if(inherits(samplers$geometry[i][[1]], "MULTIPOINT")){
      for(j in seq(along = samplers$geometry[i][[1]])){
        coords <- as.numeric(samplers$geometry[i][[1]][[j]])
        temp <- data.frame(transect = tr,
                           strata = st,
                           x = coords[1],
                           y = coords[2])
        all.transects <- rbind(all.transects,temp)
      }
    }
  }
  return(all.transects)
}