library(dplyr)
wide_measurements <- brauer_2008_triple[["measurements"]] %>%
tidyr::spread(sample, expression)
wide_df <- brauer_2008_triple[["features"]] %>%
left_join(wide_measurements, by = "name")
convert_wide_to_tidy_omic(wide_df,
feature_pk = "name",
feature_vars = c("BP", "MF", "systematic_name")
)
Run the code above in your browser using DataLab