R/dystans.R

In bluemetrica-training/konwertery: Biblioteka do konwersji jednostek.

#' Konwersja jednostek dystansu
#'
#' Ta funkcja konwertuje rózna jednotki dystansu na inne wyrane. Działa wektorowo.
#'
#' @param value obiekt zawierający wartości do przeliczenia na inną jednostkę
#' @param fr jednostka z której konwertujemy "cm", "inch", "m", "ft", "km"
#' @param to jednostka do której konwertujemy "cm", "inch", "m", "ft", "km"
#'
#' @export
#'
#' @examples
#' convert(12, "cm", "ft")
#'
convert <- function(value, fr, to) {
  # cm, m, km, inch, ft, mile

  x = dplyr::filter(tabela, from == fr)
  x = dplyr::select(x, to) %>% as.numeric()

  return(x * value)
}