R/misc_utils.R

In grobblR: Creating Flexible, Reproducible 'PDF' Reports

# - To help with dplyr-related "no visible binding for global variable" note popping
# up when running devtools::check()
utils::globalVariables(c("grobblR_group", "applied_filter", "which_to_alter", ".", "theme"))

units_convert = function(x, from_units, to_units) {
  
  if (from_units == to_units)
    x
  else if (from_units %in% 'inches' & to_units %in% 'mm')
    x*25.4
  else if (from_units %in% 'inches' & to_units %in% 'cm')
    x*2.54
  else if (from_units %in% 'mm' & to_units %in% 'inches')
    x/25.4
  else if (from_units %in% 'cm' & to_units %in% 'inches')
    x/2.54
  else if (from_units %in% 'mm' & to_units %in% 'cm')
    x/10
  else if (from_units %in% 'cm' & to_units %in% 'mm')
    x*10

}

decimal_places = function(x) {
  
  if ((x %% 1) != 0) {
    
    return(nchar(strsplit(sub('0+$', '', as.character(round(x,5))), ".", fixed = TRUE)[[1]][[2]]))
    
  } else {
    
    return(0)
    
  }
  
}


as_numeric_without_warnings = function(x) {
  
  suppressWarnings(as.numeric(x))
  
}

check_is_valid_url = function(x) {
  
  any(grepl("(https?|ftp)://[^\\s/$.?#].[^\\s]*", x))
  
}