R/makeWideFromRespVsRespDataFrame.R

In chapmandu2/CancerCellLines: Analysis of cancer cell line data

#' Make a RespVsResp wide data frame
#'
#' This function creates a pivotted \code{data.frame} with the output of the makeRespVsRespDataFrame function
#'
#' @param df A \code{data.frame} object generated by the makeRespVsRespDataFrame function
#' @return A pivotted \code{data.frame} with one response variable per column
#' @export
makeWideFromRespVsRespDataFrame <- function(df) {

  df %>% dplyr::select(-data_type, -original) %>%
    tidyr::spread(assayed_id, value)

}