R/melt_channels.r

In surh/RosetteDetector: RosetteDetector

# (C) Copyright 2017 Sur Herrera Paredes
# 
# This file is part of RosetteDetector.
# 
# RosetteDetector is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# 
# RosetteDetector is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# 
# You should have received a copy of the GNU General Public License
# along with RosetteDetector.  If not, see <http://www.gnu.org/licenses/>.

#' Melt channels
#' 
#' Takes an RGB image and \emph{melts} every chanel independently,
#' by converting every cell into a line
#' 
#' @param x An RGB image
#' @param varnames Character vector with the names to give the variables
#' in the result
#' 
#' @return A data.frame where each row is a coordinate, and contains the value for that
#' coordinate on each of the three chanels in the original image
#' 
#' @author Sur Herrera Paredes
#' 
#' @export
melt_channels <- function(x,varnames=c("R","G","B")){
  #   x <- pot1
  #   varnames <- c("R","G","B") 
  x.molten <- melt(x[,,1])
  temp <- melt(x[,,2])
  x.molten$value2 <- temp$value
  temp <- melt(x[,,3])
  x.molten$value3 <- temp$value
  colnames(x.molten)[3:5] <- varnames
  return(x.molten)
}