#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.