tanu/Dashboards
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

complete != combined

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-12 14:16:23 +01:00
parent 3d250b0b43
commit 2a05a98474
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ml/server.R
View file

@ -47,7 +47,7 @@ shinyServer(function(input, output, session) {
'genes_logo_skf_BT_', 'genes_logo_skf_BT_',
selected_gene, selected_gene,
'_', '_',
"combined" "complete"
#combined_data #combined_data
) )
feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol feature_data = paste0(as.character(as.numeric(combined_training_genes)-4), # lol

2
ml/ui.R
View file

@ -60,7 +60,7 @@ dashboardPage(skin="purple",
useShinyjs(), useShinyjs(),
#plotlyOutput("plot", height = 800), #plotlyOutput("plot", height = 800),
box(plotOutput("plot"), width="100%"), box(plotOutput("plot"), width="100%"),
box(plotOutput("feature_plot"), width="100%", title="Feature Selection"), box(plotOutput("feature_plot"), width="100%", title="Feature Selection (no resampling)"),
# %>% withSpinner(color="#0dc5c1"), # uncomment if you want the spinner # %>% withSpinner(color="#0dc5c1"), # uncomment if you want the spinner
#downloadButton("save", "Download Plot"), #downloadButton("save", "Download Plot"),
#DT::dataTableOut("plotdata"), #DT::dataTableOut("plotdata"),