comparison heatmap.r @ 53:5a478e171752 draft

Uploaded

52:e10dbc437d8f

# limits
min_limit = 20

# load sparse matrix package
suppressPackageStartupMessages(library('Matrix'))

# access a numeric column
get_numeric <- function(table, column_key) {
    column <- as.numeric(column_key)
    column_data <- sapply( table[column], as.numeric )
    return (c(column_data))
}

# access a label column
get_label <- function(table, column_key) {

        col_order <- hclust(dist(t(my_matrix)))$order
        
        # reorder matrix
        my_matrix <- my_matrix[row_order, col_order]
        
        # get min size
        min_limit = max(as.integer(options$limit), min_limit)
        
        # get max size
        max_row = min(length(row_order), min_limit)
        max_col = min(length(col_order), min_limit)
        
        # transform back to three columns
        my_flatmatrix = flatten(my_matrix[1:max_row, 1:max_col])
        
        # append to result list
        l <- append(l, list(my_flatmatrix$i))
        l <- append(l, list(my_flatmatrix$j))
        l <- append(l, list(my_flatmatrix$x))

53:5a478e171752

# load sparse matrix package
suppressPackageStartupMessages(library('Matrix'))

# access a numeric column
get_numeric <- function(table, column_key) {
    column <- as.numeric(column_key)
    column_data <- suppressWarnings(as.numeric(as.character(table[column][[1]])))
    return (c(column_data))
}

# access a label column
get_label <- function(table, column_key) {

        col_order <- hclust(dist(t(my_matrix)))$order
        
        # reorder matrix
        my_matrix <- my_matrix[row_order, col_order]
        
        # transform back to three columns
        my_flatmatrix = flatten(my_matrix)
        
        # append to result list
        l <- append(l, list(my_flatmatrix$i))
        l <- append(l, list(my_flatmatrix$j))
        l <- append(l, list(my_flatmatrix$x))