From c23570ca54b066e457605930eef430bf745363d7 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 23 Mar 2026 14:05:55 +0100
Subject: [PATCH] chore: remove unused code

---
 R/validation.R | 27 ---------------------------
 1 file changed, 27 deletions(-)

diff --git a/R/validation.R b/R/validation.R
index 2ea65d76..8d6847b4 100644
--- a/R/validation.R
+++ b/R/validation.R
@@ -65,33 +65,6 @@ validation_server <- function(id,
 
       data_r <- if (shiny::is.reactive(data)) data else shiny::reactive(data)
 
-      # observeEvent(data_r(), {
-      #   to_validate <- data()
-      #   valid_dims <- check_data(to_validate, n_row = n_row, n_col = n_col)
-      #
-      #   if (all(c(valid_dims$nrows, valid_dims$ncols))) {
-      #     valid_status <- "OK"
-      #   } else {
-      #     valid_status <- "Failed"
-      #   }
-      #
-      #   valid_results <- lapply(
-      #     X = c("nrows", "ncols"),
-      #     FUN = function(x) {
-      #       if (is.null(valid_dims[[x]]))
-      #         return(NULL)
-      #       label <- switch(
-      #         x,
-      #         "nrows" = n_row_label,
-      #         "ncols" = n_col_label
-      #       )
-      #       list(
-      #         status = ifelse(valid_dims[[x]], "OK", "Failed"),
-      #         label = paste0("<b>", label, "</b>")
-      #       )
-      #     }
-      #   )
-
       shiny::observeEvent(
         data_r(),
         {