library(dplyr)
tidy_omic <- brauer_2008_tidy
updated_tidy_data <- tidy_omic$data %>%
mutate(new_sample_var = "foo") %>%
select(-DR)
new_variable_tables <- c("new_sample_var" = "samples")
update_tidy_omic(tidy_omic, updated_tidy_data, new_variable_tables)
Run the code above in your browser using DataLab