Nothing
# - 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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.