From ef9dfc2f3d724bbaa5cf869144f8ff439330275e Mon Sep 17 00:00:00 2001
From: Edgar Manukyan <edgar.manukyan@roche.com>
Date: Sun, 8 Dec 2024 01:54:15 +0000
Subject: [PATCH] #107 drop empty testcd in the template

---
 R/generate_code_tempates.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/generate_code_tempates.R b/R/generate_code_tempates.R
index 664166ae..4be634cb 100644
--- a/R/generate_code_tempates.R
+++ b/R/generate_code_tempates.R
@@ -104,7 +104,8 @@ vs_template_suffix <- stringr::str_glue('
 vs_combined <- dplyr::bind_rows(
   vs_asmntdn, vs_sys_bp, vs_dia_bp, vs_pulse, vs_temp,
   vs_resprt, vs_oxy_sat
-)
+) %>%
+  dplyr::filter(!is.na(.data$VSTESTCD))
 
 # Map qualifiers common to all topic variables ----