if (interactive()) {
tomic <- brauer_2008_triple
tomic_table <- tomic[["samples"]] %>% dplyr::filter(nutrient == "G")
shiny_lasso_test_reactval(tomic, tomic_table)
tomic_table <- tomic[["measurements"]] %>% dplyr::filter(expression < -3)
shiny_lasso_test_reactval(tomic, tomic_table)
}
Run the code above in your browser using DataLab