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:46:09 +01:00
parent 5471b4c8fa
commit 90a4c464e4
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ml/global.R
View file

@ -141,9 +141,9 @@ makeplot = function(x, # the DataFrame to plot
combined_training_genes = '999' # used only for the info box
){
plot_data = x[x$resampling==resampler,]
y_coord_min = min(plot_data[selection])
y_coord_min = min(plot_data[selection], na.rm=TRUE)
if (y_coord_min > 0) {
if (y_coord_min >= 0) {
y_coord_min = 0
}
if (display_infobox) {
@ -155,7 +155,7 @@ makeplot = function(x, # the DataFrame to plot
"\nResampling: ", metadata$resampling,
"\nFeatures: ", metadata$n_features,
"\nGenes Trained: ", combined_training_genes,
"\nTest Gene: ", gene
#"\nTest Gene: ", gene
)
} else {
metatext=paste0("Train/Test: ",
@ -350,7 +350,7 @@ if (interactive()){
selection,
"none", # always 'none' for Feature Selection
gene = combo[drug==selected_drug,"gene"],
combined_training_genes = "NO DATA",
combined_training_genes = combined_training_genes,
display_combined = TRUE
),height=450
)

2
ml/server.R
View file

@ -76,7 +76,7 @@ shinyServer(function(input, output, session) {
selection,
"none", # always 'none' for Feature Selection
gene = combo[drug==selected_drug,"gene"],
combined_training_genes = "NO DATA",
combined_training_genes = combined_training_genes,
display_combined = TRUE
),height=450
)