Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Gael MILLOT
cute_little_R_functions
Commits
b1b02d27
Commit
b1b02d27
authored
Sep 12, 2019
by
Gael MILLOT
Browse files
examples modified
parent
5d534d6b
Changes
3
Hide whitespace changes
Inline
Side-by-side
README.md
View file @
b1b02d27
...
...
@@ -131,6 +131,7 @@ Check for updated versions (most recent tags) at https://gitlab.pasteur.fr/gmill
## v6.0.0
1) name of functions changed:
fun_object_info() fun_info()
fun_rounding() fun_round()
fun_hexa_hsv_color_matrix() fun_num2color_mat()
fun_graph_param_prior_plot() fun_prior_plot()
...
...
cute_little_R_functions.R
View file @
b1b02d27
...
...
@@ -22,7 +22,7 @@
################ Object analysis 2
######## fun_param_check() #### check class, type, length, etc., of objects 2
######## fun_
object_
info() #### recover object information
8
######## fun_info() #### recover object information 8
######## fun_1D_comp() #### comparison of two 1D datasets (vectors, factors, 1D tables) 9
######## fun_2D_comp() #### comparison of two 2D datasets (row & col names, dimensions, etc.) 13
######## fun_2D_head() #### head of the left or right of big 2D objects 20
...
...
@@ -333,24 +333,24 @@ return(output)
}
######## fun_
object_
info() #### recover object information
######## fun_info() #### recover object information
# Check OK: clear to go Apollo
fun_
object_
info <- function(data){
fun_info <- function(data){
# AIM
# provide a full description of
the
object
# provide a full description of
an
object
# REQUIRED FUNCTIONS FROM CUTE_LITTLE_R_FUNCTION
# none
# ARGUMENTS
# data: object to test
# RETURN
# a list containing the info
# please, use names(fun_
object_
info()) and remove what can be too big for easy analysis
# please, use names(fun_info()) and remove what can be too big for easy analysis
# EXAMPLES
# fun_
object_
info(data = 1:3)
# fun_
object_
info(data.frame(a = 1:2, b = ordered(factor(c("A", "B")))))
# fun_
object_
info(list(a = 1:3, b = ordered(factor(c("A", "B")))))
# fun_info(data = 1:3)
# fun_info(data.frame(a = 1:2, b = ordered(factor(c("A", "B")))))
# fun_info(list(a = 1:3, b = ordered(factor(c("A", "B")))))
# DEBUGGING
# data = NULL # for function debugging
# data = 1:3 # for function debugging
...
...
@@ -7252,7 +7252,7 @@ tempo.gg.name <- "gg.indiv.plot."
tempo.gg.count <- 0
# no need loop part
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggplot())
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::geom_text(data = data.frame(x = 1, y = 1), aes(x = x, y = y, label = text)))
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::geom_text(data = data.frame(x = 1, y = 1),
ggplot2::
aes(x = x, y = y, label = text)))
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::ggtitle(title))
assign(paste0(tempo.gg.name, tempo.gg.count <- tempo.gg.count + 1), ggplot2::theme_void())
suppressWarnings(print(eval(parse(text = paste(paste0(tempo.gg.name, 1:tempo.gg.count), collapse = " + ")))))
...
...
cute_little_R_functions.docx
View file @
b1b02d27
No preview for this file type
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment