R/konwerter.R

In bluemetrica-training/nasz_pakiet: Konwersja jednostek

#' Konwersja centymetrów na cale
#' @description to co robi ta funkcja w kilku zdaniach
#' 
#' 
#' @param cm Wektor lub macierz wartości w centymetrach
#' 
#' @return wartości w calach
#' @export
#'
#' @examples 
#' cm_to_in(c(12, 13, 14))
#' 
cm_to_in <- function(cm) {
  return(cm * 0.393700787)
}


#' Konwersja cali na cm
#'
#' @param inch 
#'
#' @return
#' @export
#'
#' @examples
in_to_cm <- function(inch) {
  return(inch / 0.393700787)
}


#' Uniwersalny konwerter
#'
#' @param x 
#' @param fr
#' @param to 
#'
#' @return
#' @export
#'
#' @examples
dystans <- function(x, fr, to) {
  
  przelicznik = tabela_konwersji %>%
    dplyr::filter(from == fr) 
  przelicznik = przelicznik %>% dplyr::select(to) %>%
    dplyr::pull() 
  return(x * przelicznik)
}