From 493aadffc5bd8c11f820de1617314fd76101ad70 Mon Sep 17 00:00:00 2001
From: JoaoGarcezAurelio <joao.santos@manchester.ac.uk>
Date: Fri, 16 Aug 2024 22:45:14 +0100
Subject: [PATCH] Building tooltip function.

---
 data_cleaning.R | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/data_cleaning.R b/data_cleaning.R
index 044137a..4064aff 100644
--- a/data_cleaning.R
+++ b/data_cleaning.R
@@ -22,6 +22,17 @@ library(reactablefmtr)
 library(here)
 library(shinylive)
 
+# Uploading the table
+
 Table3 <- read_csv(here("Data",
                         "Processed Data",
                         "Table3.csv"))
+
+# Creating a tooltip option
+
+# Creating a tooltip option that will be used in the headers.
+
+with_tooltip <- function(value, tooltip) {
+  tags$abbr(style = "text-decoration: underline; text-decoration-style: dotted; cursor: help",
+            title = tooltip, value)
+}