cjerzak commited on
Commit
3633b24
·
verified ·
1 Parent(s): 2712a31

Update app.R

Browse files
Files changed (1) hide show
  1. app.R +3 -2
app.R CHANGED
@@ -125,7 +125,7 @@ ui <- fluidPage(
125
  selected = unique(sm$application)[1]),
126
  selectInput("model", "Model",
127
  choices = unique(sm$optimizeImageRep),
128
- selected = "clip"),
129
 
130
  ########################################################################
131
  # Use our named vector 'metric_choices' directly in selectInput
@@ -265,7 +265,7 @@ server <- function(input, output) {
265
 
266
  if (input$compareToBest) {
267
  z <- grouped_data$improvement
268
- main_title <- paste(input$application, "-", chosen_metric_label, "improvement over best single scale")
269
  } else {
270
  z <- grouped_data$mean_metric
271
  main_title <- paste(input$application, "-", chosen_metric_label)
@@ -275,6 +275,7 @@ server <- function(input, output) {
275
  y <- grouped_data$MaxImageDimsRight
276
  zlim <- range(z, na.rm = TRUE)
277
 
 
278
  customPalette <- colorRampPalette(c("blue", "white", "red"))(50)
279
  heatMap(
280
  x = x,
 
125
  selected = unique(sm$application)[1]),
126
  selectInput("model", "Model",
127
  choices = unique(sm$optimizeImageRep),
128
+ selected = "clip-rsicd"),
129
 
130
  ########################################################################
131
  # Use our named vector 'metric_choices' directly in selectInput
 
265
 
266
  if (input$compareToBest) {
267
  z <- grouped_data$improvement
268
+ main_title <- paste(input$application, "-", chosen_metric_label, "\n Improvement Over Best Single Scale")
269
  } else {
270
  z <- grouped_data$mean_metric
271
  main_title <- paste(input$application, "-", chosen_metric_label)
 
275
  y <- grouped_data$MaxImageDimsRight
276
  zlim <- range(z, na.rm = TRUE)
277
 
278
+ par(mar=c(5,5,5,1))
279
  customPalette <- colorRampPalette(c("blue", "white", "red"))(50)
280
  heatMap(
281
  x = x,