R/mpa_kgf.R

In omega1x/pipenostics: Diagnostics, Reliability and Predictive Maintenance of Pipeline Systems

#' @title
#'  Kilogram-force per square cm to megapascals
#'
#' @family units
#'
#' @description
#'  Convert pressure (stress) measured in \href{https://en.wikipedia.org/wiki/Kilogram-force_per_square_centimetre}{kilogram-force per square cm} (\eqn{kgf/cm^2})
#'  to \href{https://en.wikipedia.org/wiki/Pascal_(unit)}{megapascals} (MPa)
#'
#' @param x
#'  pressure (stress) measured in \emph{kilogram-force per square cm},
#'  [\emph{kgf/cm^2}]. Type: \code{\link{assert_double}}.
#'
#' @return
#'  pressure (stress) in \emph{megapascals}, [\emph{MPa}].
#'  Type: \code{\link{assert_double}}.
#'
#' @seealso
#'  \code{\link{kgf_mpa}} for converting \emph{megapascals} to \emph{kilogram-force per square cm}
#'
#' @export
#'
#' @examples
#'  library(pipenostics)
#'
#'  mpa_kgf(c(10.1971619998, 1))
#'  # [1] 1.0000000 0.0980665  # [MPa]
#'
mpa_kgf <- function(x) {
  checkmate::assert_double(x, finite = TRUE, any.missing = FALSE, min.len = 1L)
  9.806650125e-2*x
}