Update app.R

app.R

@@ -5,6 +5,15 @@ library(shiny)
 library(dplyr)
 library(fields)  # For image.plot in heatMap
 library(akima)   # For interpolation
+MAX_PLOT_DIM <- 600      
+safe_dim <- function(client_name, cap = MAX_PLOT_DIM) {
+  if (exists("session", inherits = TRUE)) {                 # Shiny context?
+    cd <- session$clientData[[client_name]]
+    if (!is.null(cd)) return(min(cap, cd))                  # clamp to cap
+  }
+  cap                                                     # fallback
+}
+
 
 # Load the data from sm.csv
 # Ensure 'sm.csv' is in the same directory as the app.R file or provide the full path.
@@ -267,7 +276,6 @@ ui <- fluidPage(
            (function() {
              const shareBtn = document.getElementById('share-button');
              if (!shareBtn) return; // Exit if button not found
-
              function showCopyNotification() {
                const notification = document.createElement('div');
                notification.innerText = 'Link copied!'; /* Shorter message */
@@ -285,11 +293,9 @@ ui <- fluidPage(
                document.body.appendChild(notification);
                setTimeout(() => { notification.remove(); }, 1500); /* Shorter duration */
              }
-
              shareBtn.addEventListener('click', function() {
                const currentURL = window.location.href;
                const pageTitle  = document.title || 'Multiscale Explorer';
-
                if (navigator.share) {
                  navigator.share({
                    title: pageTitle,
@@ -364,6 +370,12 @@ ui <- fluidPage(
         # *** ADJUSTED PLOT OUTPUT ***
         plotOutput("heatmapPlot", height = "500px", width = "100%")
       ),
+      
+      # *** ADDED VERTICAL SPACE ***
+      br(), # Add a line break for spacing
+      # OR use a div with margin:
+      tags$div(style="margin-bottom: 80px;"), # Alternative way to add space
+      
       # Use uiOutput for potentially HTML content in the note
       uiOutput("contextNote")
     )
@@ -611,7 +623,8 @@ server <- function(input, output, session) { # Add session argument
     
     
     # *** ADJUSTED MARGINS AND COLORS ***
-    par(mar=c(5, 5, 4, 2) + 0.1) # Adjusted margins (bottom, left, top, right)
+    #par(mar=c(5, 5, 4, 2) + 0.1) # Adjusted margins (bottom, left, top, right)
+    par(mar=c(5.1, 4.1, 3.1, 4.1)) # Margins: bottom, left, top, right
     # *** USING HCL COLORS ***
     customPalette <- hcl.colors(50, palette = "YlOrRd", rev = TRUE) # Or "Viridis", "Plasma" etc.
     
@@ -636,7 +649,11 @@ server <- function(input, output, session) { # Add session argument
       legend.width = 1.5 # Slightly wider legend
     )
     
-  }, res = 96) # Adjust resolution if needed
+  },
+  width  = function() safe_dim("output_heatmapPlot_width"),
+  height = function() safe_dim("output_heatmapPlot_height"),
+  res    = 96,
+  execOnResize = TRUE) # Adjust resolution if needed
   
   # Contextual Note Output (using renderUI for HTML)
   output$contextNote <- renderText({