Commit b1b02d27 authored by Gael  MILLOT's avatar Gael MILLOT

examples modified

parent 5d534d6b
......@@ -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()
......
......@@ -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 = " + ")))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment