From fb6f1a708d08240e089f813863c7bbf57254eb84 Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Tue, 15 Apr 2025 16:27:43 +0200
Subject: [PATCH] bug corrected

---
 R/app_version.R                                          | 2 +-
 R/correlations-module.R                                  | 2 +-
 inst/apps/FreesearchR/app.R                              | 9 ++++++---
 .../rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf     | 2 +-
 4 files changed, 9 insertions(+), 6 deletions(-)

diff --git a/R/app_version.R b/R/app_version.R
index c47f954..e562fc1 100644
--- a/R/app_version.R
+++ b/R/app_version.R
@@ -1 +1 @@
-app_version <- function()'Version: 25.4.3.250415_1539'
+app_version <- function()'Version: 25.4.3.250415_1627'
diff --git a/R/correlations-module.R b/R/correlations-module.R
index 4d56be1..8330f2c 100644
--- a/R/correlations-module.R
+++ b/R/correlations-module.R
@@ -47,7 +47,7 @@ data_correlations_server <- function(id,
           out <- data()
         }
         # out |> dplyr::mutate(dplyr::across(tidyselect::everything(),as.numeric))
-        sapply(data,as.numeric)
+        sapply(out,as.numeric)
         # as.numeric()
       })
 
diff --git a/inst/apps/FreesearchR/app.R b/inst/apps/FreesearchR/app.R
index 9c0184b..79bc3f7 100644
--- a/inst/apps/FreesearchR/app.R
+++ b/inst/apps/FreesearchR/app.R
@@ -10,7 +10,7 @@
 #### Current file: /Users/au301842/FreesearchR/R//app_version.R 
 ########
 
-app_version <- function()'Version: 25.4.3.250415_1539'
+app_version <- function()'Version: 25.4.3.250415_1627'
 
 
 ########
@@ -208,7 +208,7 @@ data_correlations_server <- function(id,
           out <- data()
         }
         # out |> dplyr::mutate(dplyr::across(tidyselect::everything(),as.numeric))
-        sapply(data,as.numeric)
+        sapply(out,as.numeric)
         # as.numeric()
       })
 
@@ -2394,9 +2394,12 @@ type_icons <- function(x) {
       shiny::icon("toggle-off")
     } else if (identical(x,"datetime")) {
       shiny::icon("calendar-days")
+    } else if (identical(x,"id")) {
+      shiny::icon("id-card")
     } else {
       shiny::icon("table")
-    }}
+    }
+    }
 }
 
 
diff --git a/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf b/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
index 793c917..8d0b399 100644
--- a/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
+++ b/inst/apps/FreesearchR/rsconnect/shinyapps.io/agdamsbo/freesearcheR.dcf
@@ -5,6 +5,6 @@ account: agdamsbo
 server: shinyapps.io
 hostUrl: https://api.shinyapps.io/v1
 appId: 13611288
-bundleId: 10111887
+bundleId:
 url: https://agdamsbo.shinyapps.io/freesearcheR/
 version: 1