R/long2wide.R

In Ymisc: Miscellaneous Functions

#' @title Reshapes the data
#' @description
#' long2wide() is data-reshaping function for long format data.
#' This function mainly targets the brain structure data that contains the data from the left and right hemispheres
#'
#' @param data The long format data.
#' @param ID The column of identifiers.
#' @param separator A character vector that separates characters in the variable names.
#' @param hemisphere The character vector that indicates whether a hemisphere indicator in the variable names is the prefix or suffix. At this point, only a "prefix" option is available.
#' @param start The column that specifies the starting point of a set of variables to be reshaped.
#' @param end The column that specifies the endpoint of a set of variables to be reshaped.
#' @return The wide format data
#'
#' @export
#'
#' @import stats
#'
#' @examples
#'
#' data(long)
#'
#' long2wide(
#' data=long,
#' ID="ID",
#' separator="_",
#' hemisphere="prefix",
#' start="region",
#' end="rh")

long2wide<-function(data,
                    ID="ID",
                    separator="_",
                    hemisphere="prefix",
                    start,
                    end){

  if(hemisphere!="prefix"){
    stop("Hemisphere indicator should be the prefix.")
  }else {


    start <- match(start,names(data))
    end <- match(end,names(data))

    IDV <- data[,-c(start:end)]

    reshaped_data <- stats::reshape(data=data,
                             idvar=colnames(IDV),
                             timevar="region",
                             direction="wide",
                             sep=separator)

    rownames(reshaped_data) <- NULL

    data <- data.frame(reshaped_data[order(reshaped_data[,ID]),])

    return(data)
  }
  }