R/plot.R

setGeneric("plot")
setMethod(
  f = "plot",
  signature = c(x = ".MoveTrackSingle", y = "missing"),
  function(x, y, asp = 1, ...) {
    plot(coordinates(x), asp = asp, ...)
  }
)

setMethod(
  f = "plot",
  signature = c(x = ".MoveTrackStack", y = "missing"),
  function(x, y, type = "p", asp = 1, ...) {
    plot(coordinates(x), type = "n", asp = asp, ...)
    if (type %in% c("p", "o", "b")) {
      res <- points(x, ...)
    }
    if (type %in% c("l", "o", "b")) {
      res <- lines(x, ...)
    }
  }
)

setMethod(
  f = "plot",
  signature = c(x = ".MoveTrackSingleBurst", y = "missing"),
  function(x, y, type = "p", asp = 1, ...) {
    plot(coordinates(x), asp = asp, type = "n", ...)
    if (type %in% c("p", "o", "b")) {
      res <- points(x, ...)
    }
    if (type %in% c("l", "o", "b")) {
      res <- lines(x, ...)
    }
  }
)

Try the move package in your browser

Any scripts or data that you put into this service are public.

move documentation built on July 9, 2023, 6:09 p.m.