From 6fb55fd2cc9703b55be04e8cd07bd65d47b6ea63 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Wed, 20 Nov 2024 12:41:48 +0100
Subject: [PATCH] trial and error

---
 inst/shiny-examples/casting/server.R | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/inst/shiny-examples/casting/server.R b/inst/shiny-examples/casting/server.R
index c9df87b..0f449a4 100644
--- a/inst/shiny-examples/casting/server.R
+++ b/inst/shiny-examples/casting/server.R
@@ -24,7 +24,7 @@ server <- function(input, output, session) {
     out <- read_input(input$ds$datapath)
 
     # Saves labels to reapply later
-    labels <- lapply(out, get_attr)
+    # labels <- lapply(out, get_attr)
 
     out <- out |>
       ## Parses data with readr functions
@@ -44,10 +44,10 @@ server <- function(input, output, session) {
     }
 
     # Old attributes are appended
-    out <- purrr::imap(out,\(.x,.i){
-      set_attr(.x,labels[[.i]])
-    }) |>
-      dplyr::bind_cols()
+    # out <- purrr::imap(out,\(.x,.i){
+    #   set_attr(.x,labels[[.i]])
+    # }) |>
+    #   dplyr::bind_cols()
 
     out
   })