R/fct_melt.R

In shinySbm: 'shiny' Application to Use the Stochastic Block Model

#' melt_matrix: equivalent of reshape2::melt.matrix
#'
#' @description A function that return matrix value in 3 columns Var1: rownames or row number,  Var2: colnames or col number, value: value stored at matrix location
#'
#' @return matrix value in 3 columns Var1: rownames or row number,  Var2: colnames or col number, value: value stored at matrix location
#'
#' @noRd
melt_matrix <- function(data) {
  . <- NULL

  row_names <- 1:nrow(data)
  col_names <- 1:ncol(data)
  data.frame(
    Var1 = rep(row_names, times = length(col_names)),
    Var2 = rep(col_names, each = length(row_names)),
    value = as.numeric(data)
  ) %>%
    `row.names<-`(1:nrow(.))
}