Update app.R

app.R

@@ -13,6 +13,7 @@
 # ----------------------------
 # Load required packages
 # ----------------------------
+options(error=NULL)
 library(shiny)
 library(shinydashboard)
 library(DT)               # For data tables
@@ -281,15 +282,113 @@ ui <- dashboardPage(
         target = "_blank",
         style = "color: white; text-decoration: underline; font-family: 'Helvetica Neue', Helvetica, Arial, sans-serif;"
       )
-     )
+    )
   ),
   
   # ========== Sidebar ================
   dashboardSidebar(
     sidebarMenu(
-      menuItem("Data & Covariates", tabName = "datatab", icon = icon("database")),
-      menuItem("Generate Randomizations", tabName = "gennet", icon = icon("random")),
-      menuItem("Randomization Test", tabName = "randtest", icon = icon("flask"))
+      menuItem("1. Data & Covariates", tabName = "datatab", icon = icon("database")),
+      menuItem("2. Generate Randomizations", tabName = "gennet", icon = icon("random")),
+      menuItem("3. Randomization Test", tabName = "randtest", icon = icon("flask")), 
+      
+      
+      # ---- Here is the minimal "Share" button HTML + JS inlined in Shiny ----
+      # We wrap it in tags$div(...) and tags$script(HTML(...)) so it is recognized
+      # by Shiny. You can adjust the styling or placement as needed.
+      tags$div(
+        style = "text-align: left; margin: 1em 0 1em 1em;",
+        HTML('
+       <button id="share-button" 
+                style="
+                  display: inline-flex;
+                  align-items: center;
+                  justify-content: center;
+                  gap: 8px; 
+                  padding: 5px 10px;
+                  font-size: 16px;
+                  font-weight: normal;
+                  color: #000;
+                  background-color: #fff;
+                  border: 1px solid #ddd;
+                  border-radius: 6px;
+                  cursor: pointer;
+                  box-shadow: 0 1.5px 0 #000;
+                ">
+          <svg width="18" height="18" viewBox="0 0 24 24" fill="none" stroke="currentColor" 
+               stroke-width="2" stroke-linecap="round" stroke-linejoin="round">
+            <circle cx="18" cy="5" r="3"></circle>
+            <circle cx="6" cy="12" r="3"></circle>
+            <circle cx="18" cy="19" r="3"></circle>
+            <line x1="8.59" y1="13.51" x2="15.42" y2="17.49"></line>
+            <line x1="15.41" y1="6.51" x2="8.59" y2="10.49"></line>
+          </svg>
+          <strong>Share</strong>
+        </button>
+      '),
+        # Insert the JS as well
+        tags$script(
+          HTML("
+          (function() {
+            const shareBtn = document.getElementById('share-button');
+            // Reusable helper function to show a small “Copied!” message
+            function showCopyNotification() {
+              const notification = document.createElement('div');
+              notification.innerText = 'Copied to clipboard';
+              notification.style.position = 'fixed';
+              notification.style.bottom = '20px';
+              notification.style.right = '20px';
+              notification.style.backgroundColor = 'rgba(0, 0, 0, 0.8)';
+              notification.style.color = '#fff';
+              notification.style.padding = '8px 12px';
+              notification.style.borderRadius = '4px';
+              notification.style.zIndex = '9999';
+              document.body.appendChild(notification);
+              setTimeout(() => { notification.remove(); }, 2000);
+            }
+            shareBtn.addEventListener('click', function() {
+              const currentURL = window.location.href;
+              const pageTitle  = document.title || 'Check this out!';
+              // If browser supports Web Share API
+              if (navigator.share) {
+                navigator.share({
+                  title: pageTitle,
+                  text: '',
+                  url: currentURL
+                })
+                .catch((error) => {
+                  console.log('Sharing failed', error);
+                });
+              } else {
+                // Fallback: Copy URL
+                if (navigator.clipboard && navigator.clipboard.writeText) {
+                  navigator.clipboard.writeText(currentURL).then(() => {
+                    showCopyNotification();
+                  }, (err) => {
+                    console.error('Could not copy text: ', err);
+                  });
+                } else {
+                  // Double fallback for older browsers
+                  const textArea = document.createElement('textarea');
+                  textArea.value = currentURL;
+                  document.body.appendChild(textArea);
+                  textArea.select();
+                  try {
+                    document.execCommand('copy');
+                    showCopyNotification();
+                  } catch (err) {
+                    alert('Please copy this link:\\n' + currentURL);
+                  }
+                  document.body.removeChild(textArea);
+                }
+              }
+            });
+          })();
+        ")
+        )
+      )
+      # ---- End: Minimal Share button snippet ----
+      
     )
   ),
   
@@ -331,8 +430,10 @@ ui <- dashboardPage(
               
               conditionalPanel(
                 condition = "input.data_source == 'simulate'",
-                numericInput("sim_n", "Number of units (rows)", value = 100, min = 2),
-                numericInput("sim_p", "Number of covariates (columns)", value = 50, min = 1),
+                numericInput("sim_n", "Number of units (rows)", 
+                             value = 64, min = 10),
+                numericInput("sim_p", "Number of covariates (columns)",
+                             value = 32, min = 2),
                 actionButton("simulate_btn", "Simulate X")
               )
           ),
@@ -353,7 +454,8 @@ ui <- dashboardPage(
           box(width = 4, title = "Rerandomization Parameters",
               status = "primary", solidHeader = TRUE,
               
-              numericInput("n_treated", "Number Treated (n_treated)", value = 10, min = 1),
+              numericInput("n_treated", "Number Treated (n_treated)",
+                           value = 10, min = 1),
               selectInput("random_type", "Randomization Type:",
                           choices = c("Monte Carlo" = "monte_carlo",
                                       "Exact"        = "exact"),
@@ -459,103 +561,7 @@ ui <- dashboardPage(
         )
       )
       
-    ), # end tabItems
-
-      # ---- Here is the minimal "Share" button HTML + JS inlined in Shiny ----
-  # We wrap it in tags$div(...) and tags$script(HTML(...)) so it is recognized
-  # by Shiny. You can adjust the styling or placement as needed.
-  tags$div(
-     style = "text-align: left; margin: 1em 0 1em 0em;",
-     HTML('
-       <button id="share-button" 
-                style="
-                  display: inline-flex;
-                  align-items: center;
-                  justify-content: center;
-                  gap: 8px; 
-                  padding: 5px 10px;
-                  font-size: 16px;
-                  font-weight: normal;
-                  color: #000;
-                  background-color: #fff;
-                  border: 1px solid #ddd;
-                  border-radius: 6px;
-                  cursor: pointer;
-                  box-shadow: 0 1.5px 0 #000;
-                ">
-          <svg width="18" height="18" viewBox="0 0 24 24" fill="none" stroke="currentColor" 
-               stroke-width="2" stroke-linecap="round" stroke-linejoin="round">
-            <circle cx="18" cy="5" r="3"></circle>
-            <circle cx="6" cy="12" r="3"></circle>
-            <circle cx="18" cy="19" r="3"></circle>
-            <line x1="8.59" y1="13.51" x2="15.42" y2="17.49"></line>
-            <line x1="15.41" y1="6.51" x2="8.59" y2="10.49"></line>
-          </svg>
-          <strong>Share</strong>
-        </button>
-      '),
-      # Insert the JS as well
-      tags$script(
-        HTML("
-          (function() {
-            const shareBtn = document.getElementById('share-button');
-            // Reusable helper function to show a small “Copied!” message
-            function showCopyNotification() {
-              const notification = document.createElement('div');
-              notification.innerText = 'Copied to clipboard';
-              notification.style.position = 'fixed';
-              notification.style.bottom = '20px';
-              notification.style.right = '20px';
-              notification.style.backgroundColor = 'rgba(0, 0, 0, 0.8)';
-              notification.style.color = '#fff';
-              notification.style.padding = '8px 12px';
-              notification.style.borderRadius = '4px';
-              notification.style.zIndex = '9999';
-              document.body.appendChild(notification);
-              setTimeout(() => { notification.remove(); }, 2000);
-            }
-            shareBtn.addEventListener('click', function() {
-              const currentURL = window.location.href;
-              const pageTitle  = document.title || 'Check this out!';
-              // If browser supports Web Share API
-              if (navigator.share) {
-                navigator.share({
-                  title: pageTitle,
-                  text: '',
-                  url: currentURL
-                })
-                .catch((error) => {
-                  console.log('Sharing failed', error);
-                });
-              } else {
-                // Fallback: Copy URL
-                if (navigator.clipboard && navigator.clipboard.writeText) {
-                  navigator.clipboard.writeText(currentURL).then(() => {
-                    showCopyNotification();
-                  }, (err) => {
-                    console.error('Could not copy text: ', err);
-                  });
-                } else {
-                  // Double fallback for older browsers
-                  const textArea = document.createElement('textarea');
-                  textArea.value = currentURL;
-                  document.body.appendChild(textArea);
-                  textArea.select();
-                  try {
-                    document.execCommand('copy');
-                    showCopyNotification();
-                  } catch (err) {
-                    alert('Please copy this link:\\n' + currentURL);
-                  }
-                  document.body.removeChild(textArea);
-                }
-              }
-            });
-          })();
-        ")
-      )
-    ),
-  # ---- End: Minimal Share button snippet ----
+    ) # end tabItems
     
   ) # end dashboardBody
 ) # end dashboardPage
@@ -594,8 +600,13 @@ server <- function(input, output, session) {
   # Show X in table
   output$covariates_table <- renderDT({
     req(X_data())
-    datatable(as.data.frame(signif(X_data())), 
-              options = list(scrollX = TRUE, pageLength = 5))
+    
+    # Round all numeric columns to 3 significant digits
+    df <- as.data.frame(X_data())
+    numeric_cols <- sapply(df, is.numeric)
+    df[numeric_cols] <- lapply(df[numeric_cols], signif, digits = 3)
+    
+    datatable(df, options = list(scrollX = TRUE, pageLength = 10))
   })
   
   # -------------------------------------------------------
@@ -729,7 +740,9 @@ server <- function(input, output, session) {
     HTML(paste(
       "<strong>System Hardware Info:</strong><br/>",
       "Number of CPU cores detected:", num_cores, "<br/>",
-      "With additional CPU or GPU, greater speedups can be expected."
+      "With additional CPU or GPU, greater speedups can be expected.
+       Speedups greatest in high-dimensional or large-N settings.
+      "
     ))
   })