R/tools.R

In tjebo/maiaR: Microperimetry analysis for centervue's maia and compass data

#' tools and lookups
#' @keywords internal
lu_names <- c(
  threshold = "threshold",
  bcea_63 = "bcea_63" ,
  bcea_95 = "bcea_95",
  bcea_angle = "bcea_angle",
  est_fov_loc ="estimated fovea location",
  av_sens ="average sens",
  av_reac = "aver. reac",
  rototrans = "rototransl",
  maia_sn = "maia s/n",
  pat_id = "patient id",
  duration = "duration",
  mesopic_id = "expert exam",
  scotopic_id = "scotopic exam",
  scotopic_fu_id = "scotopic follow",
  mesopic_fu_id = "follow up exam",
  date = "exam date",
  reg_pts = "registration points",
  fix_pts = "fixation points",
  px2deg = "pix2deg",
  fix_loss = "fixation loss",
  prl_i = "prl_i",
  prl_f = "prl_f",
  prl_dist = "dist. prl",
  prl_i_bl = "baseline prl_i"
)

#' Pipe operator
#'
#' See \code{magrittr::\link[magrittr:pipe]{\%>\%}} for details.
#'
#' @name %>%
#' @rdname pipe
#' @keywords internal
#' @export
#' @importFrom magrittr %>%
#' @usage lhs \%>\% rhs
NULL