Tests the shiny lasso module as a stand-alone application.
shiny_lasso_test(tomic, tomic_table)A shiny app
if (interactive()) {
tomic <- brauer_2008_triple
tomic_table <- tomic[["samples"]] %>% dplyr::filter(nutrient == "G")
shiny_lasso_test(tomic, tomic_table)
}