R/sctrip.r

In mdsumner/sctrip: Simple Model for Trip Data

#' Convert trip to common form.
#'
#' @param x trip object
#' @param ... arguments to methods
#' @examples
#' library(trip)
#' sc_object(walrus818)
#' sc_coord(walrus818)
#' sc_path(walrus818)
#'
#' ## now we have segments
#' library(dplyr)
#' PATH(walrus818) %>% PRIMITIVE()
#' @export
#' @importFrom sc sc_coord sc_object sc_path sc_rand
#' @importFrom tibble tibble
#' @importFrom trip getTORnames
#' @importFrom dplyr distinct_
sc_object.trip <- function(x, ...) {
  tor <- trip::getTORnames(x)
  #cnames <- sp::coordnames(x)
  d <- tibble::as_tibble(dplyr::distinct_(as.data.frame(x), tor[2L]))
  d[["object_"]] <- sc_rand(nrow(d))
  d
}

#' @export
#' @importFrom sp coordinates
sc_coord.trip <- function(x, ...) {
 # d <- tibble::as_tibble(sp::coordinates(x))
 #  tor <- trip::getTORnames(x)
 #  d[[tor[1L]]] <- x[[tor[1L]]]
  ## everything is a vertex here
  ## we need to keep them all but add extra info
  ## or more likely just keep tables of metadata about columns
  tibble::as_tibble(as.data.frame(x))
}

#' @export
#' @importFrom dplyr %>% group_by_ mutate n summarize
sc_path.trip <- function(x, ...) {
  d <- as.data.frame(x) %>% group_by_(trip::getTORnames(x)[2L]) %>% dplyr::summarize(ncoords_ = n())
  d[["path_"]] = sc_rand(nrow(d))
  d
}