Skip to content

Commit

Permalink
Rshiny app in BASC is isolated and so the file browser will not work …
Browse files Browse the repository at this point in the history
…as intended; hence please load app.R manually in RStudio or VSCode
  • Loading branch information
jeffersonfparil committed Jul 29, 2024
1 parent 42c14aa commit dd04b3c
Showing 1 changed file with 7 additions and 6 deletions.
13 changes: 7 additions & 6 deletions inst/plot_gs_gp/app.R
Original file line number Diff line number Diff line change
@@ -1,7 +1,7 @@
library(bslib)
library(shiny)
library(shinyWidgets)
library(plotly)
library(bslib)
library(shinyFiles)
library(shinycssloaders)

Expand Down Expand Up @@ -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()
)
Expand Down Expand Up @@ -1495,3 +1495,4 @@ server = function(input, output, session) {
####################################################################################################
options(shiny.maxRequestSize = 50 * 1024^2)
shinyApp(ui = ui, server = server)

0 comments on commit dd04b3c

Please sign in to comment.