R/dplyr-mutate.R

In Cardinal: A mass spectrometry imaging toolbox for statistical analysis

## Add columns to a DataFrame

mutate.DataFrame <- function(.data, ...)
	{
		.Deprecated("transform")
		mutate(as_tibble(as.list(.data)), ...)
	}

mutate.XDataFrame <- function(.data, ...)
	{
		.Deprecated("transform")
		mutate(as_tibble(as.list(.data)), ...)
	}

mutate.SummaryDataFrame <- function(.data, ...)
	{
		.Deprecated("transform")
		mutate(as.data.frame(.data), ...)
	}

## Add metadata columns to an imaging experiment

mutate.SparseImagingExperiment <- function(.data, ...)
	{
		.Deprecated()
		mdata <- mcols(.data)
		expr <- eval(substitute(alist(...)))
		nm <- sapply(substitute(...()), deparse)
		if ( !is.null(names(expr)) ) {
			nz <- nzchar(names(expr))
			nm[nz] <- names(expr)[nz]
		}
		names(expr) <- nm
		if ( length(expr) > 0 ) {
			e <- as.env(mdata, enclos=parent.frame(1))
			for ( i in seq_along(expr) ) {
				col <- eval(expr[[i]], envir=e)
				col <- rep_len(col, nrow(mdata))
				if ( nm[i] %in% ls(e) )
					rm(list=nm[i], pos=e)
				assign(nm[i], col, e)
				mdata[[nm[i]]] <- col
			}
			mcols(.data) <- mdata
		}
		.data
	}