From 7fb4f25a9cff76019006796acbb21f1f2df5f4d5 Mon Sep 17 00:00:00 2001
From: cecicampanile <campanile.cecilia@gmail.com>
Date: Fri, 13 Dec 2024 16:12:51 +0000
Subject: [PATCH] Update tableMissingData.R

---
 R/tableMissingData.R | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/R/tableMissingData.R b/R/tableMissingData.R
index 8c500bf..1ab370c 100644
--- a/R/tableMissingData.R
+++ b/R/tableMissingData.R
@@ -24,14 +24,12 @@ tableMissingData <- function(result,
   }
 
   result |>
-    formatColumn(c("variable_name", "variable_level")) |>
     visOmopResults::visOmopTable(
       type = type,
-      estimateName = c(
-        "N (%)" = "<na_percentage> (%)",
-        "N" = "<na_count>"),
+       estimateName = c("N missing data (%)" = "<na_count> (<na_percentage>%)"),
       header = c("cdm_name"),
-      rename = c("Database name" = "cdm_name"),
-      groupColumn = c("omop_table", omopgenerics::strataColumns(result))
+      rename = c("Database name" = "cdm_name", "Column name"= "variable_name"),
+      groupColumn = c("omop_table", omopgenerics::strataColumns(result)),
+      hide = c("variable_level")
     )
 }