R/png.R

In tractor.base: Read, Manipulate and Visualise Magnetic Resonance Images

writePng <- function (data, fileName, aspectRatio = 1)
{
    if (length(dim(data)) == 3)
    {
        data <- data[,dim(data)[2]:1,]
        data <- aperm(data, c(2,1,3))
    }
    else if (length(dim(data)) == 2)
        data <- t(data[,dim(data)[2]:1])
    
    loder::writePng(structure(data,range=c(0,1),asp=aspectRatio), ensureFileSuffix(fileName,"png"))
}