Spaces:
Running
Running
Update app.R
Browse files
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, "
|
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,
|