R/babel.R

In MomX/Momocs2: Modern Morphometrics and Shape Manipulation

#' Convert between numeric and classes systems
#'
#' Function names should be explicit
#'
#' @param x some object to convert
#' @return converted object
#'
#' @name babel
#'
#' @examples
#' bot %>% pick(1) %>% head() %>%
#'   cartesian_2_complex() %T>% print() %>%
#'   complex_2_cartesian()
NULL

#' @describeIn babel complex numbers
#' @export
complex_2_cartesian <- function(x){
  cbind(Re(x), Im(x)) %>% coo_single()
}

#' @describeIn babel complex numbers
#' @export
cartesian_2_complex <- function(x){
  x <- coo_single(x)
  complex(real=x$x, imaginary = x$y)
}

#' @describeIn babel angle conversion
#' @export
degrees_to_radians <- function(x){
  x*pi/180
}

#' @describeIn babel angle conversion
#' @export
radians_to_degrees <- function(x){
  x*180/pi
}