#107 refactor

pharmaverse · Dec 9, 2024 · c465b22 · c465b22
1 parent 2bfb2b3
commit c465b22
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/generate_code.R b/R/generate_code.R
@@ -130,6 +130,7 @@ generate_one_topic_code <- function(topic, domain, spec) {
     tolower()
 
   map_topic <- paste0("\n\n# Map topic ", domain_topic, " ----\n")
+  assign_to_domain_topic <- paste0(domain_topic, " <-")
 
   # Generate the code for each variable row in spec
   spec_topic |>
@@ -139,7 +140,7 @@ generate_one_topic_code <- function(topic, domain, spec) {
       .keep = "none"
     ) |>
     unlist() |>
-    append(paste0(domain_topic, " <-"), after = 0L) |>
+    append(assign_to_domain_topic, after = 0L) |>
     append(map_topic, after = 0L)
 }