R/tool_sign_numbers.R

Defines functions .sign_numbers

.sign_numbers <- function(x){
  
  if(is.finite(x) && x > 0){
    sign_char <- "+"
  }
  else {
    sign_char <- ""
  }
  
  return(sign_char)
}

Try the multiRL package in your browser

Any scripts or data that you put into this service are public.

multiRL documentation built on March 31, 2026, 5:06 p.m.