From dd04b3c3b4c8412758a9e50e4412f949f517614b Mon Sep 17 00:00:00 2001 From: jeffersonfparil Date: Tue, 30 Jul 2024 09:18:20 +1000 Subject: [PATCH] Rshiny app in BASC is isolated and so the file browser will not work as intended; hence please load app.R manually in RStudio or VSCode --- inst/plot_gs_gp/app.R | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/inst/plot_gs_gp/app.R b/inst/plot_gs_gp/app.R index eecfccb..8268c27 100644 --- a/inst/plot_gs_gp/app.R +++ b/inst/plot_gs_gp/app.R @@ -1,7 +1,7 @@ +library(bslib) library(shiny) library(shinyWidgets) library(plotly) -library(bslib) library(shinyFiles) library(shinycssloaders) @@ -1101,20 +1101,20 @@ fn_across_bulk_table_predictions_server = function(input, list_list_output) { #################################################################################################### ui <- page_fillable( titlePanel("plot(gp)"), - bslib::navset_card_underline( - bslib::nav_panel(h1(strong("WITHIN POPULATION"), style="font-size:15px; text-align:left"), + navset_card_underline( + nav_panel(h1(strong("WITHIN POPULATION"), style="font-size:15px; text-align:left"), fn_within_violin_ui(), fn_within_scatter_hist_ui() ), - bslib::nav_panel(h1(strong("ACROSS POPULATIONS (PAIRWISE)"), style="font-size:15px; text-align:left"), + nav_panel(h1(strong("ACROSS POPULATIONS (PAIRWISE)"), style="font-size:15px; text-align:left"), fn_across_pair_barplot_ui(), fn_across_pair_scatter_hist_ui() ), - bslib::nav_panel(h1(strong("ACROSS POPULATIONS (LEAVE-ONE-OUT)"), style="font-size:15px; text-align:left"), + nav_panel(h1(strong("ACROSS POPULATIONS (LEAVE-ONE-OUT)"), style="font-size:15px; text-align:left"), fn_across_lopo_barplot_ui(), fn_across_lopo_scatter_hist_ui() ), - bslib::nav_panel(h1(strong("ACROSS POPULATIONS (BULK)"), style="font-size:15px; text-align:left"), + nav_panel(h1(strong("ACROSS POPULATIONS (BULK)"), style="font-size:15px; text-align:left"), fn_across_bulk_violin_ui(), fn_across_bulk_scatter_hist_ui() ) @@ -1495,3 +1495,4 @@ server = function(input, output, session) { #################################################################################################### options(shiny.maxRequestSize = 50 * 1024^2) shinyApp(ui = ui, server = server) +