Mercurial > repos > iuc > charts
diff boxplot.r @ 0:a87a3773d8ed draft
planemo upload for repository https://github.com/galaxyproject/tools-iuc/tree/master/tools/charts/ commit 87080d49913cfd40a77eda7e5834ac9c4bc30b0b
author | iuc |
---|---|
date | Fri, 09 Mar 2018 08:23:08 -0500 |
parents | |
children | 344ac3ca7557 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/boxplot.r Fri Mar 09 08:23:08 2018 -0500 @@ -0,0 +1,21 @@ +wrapper <- function(table, columns, options) { + + # initialize output list + l <- list() + + # loop through all columns + for (key in names(columns)) { + # load column data + column <- as.numeric(columns[key]) + column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]]))) + + # create hist data + data <- boxplot(column_data, plot=FALSE) + + # collect vectors in list + l <- append(l, list(data$stats)) + } + + # return + return (l) +}