Merge pull request #103 from jamiewhths/fix-ai-3819

AI-3819: Only add parent columns to query if there are fields defined on `parentVarNames`
bedatadriven · Oct 28, 2023 · 5fb12f9 · 5fb12f9
2 parents 2b4bcf6 + 9b7f8dd
commit 5fb12f9
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/R/records.R b/R/records.R
@@ -837,13 +837,15 @@ varNames.activityInfoFormTree <- function(x, style = defaultColumnStyle(), addNa
       }))
       parentVarNames <- parentVarNames[lengths(parentVarNames)!=0]
     }
-
-    if(identical(style$columnNames, "pretty")) {
-      parentVarNames <- paste("Parent", parentVarNames, sep = " ")
-    } else {
-      parentVarNames <- paste("@parent", parentVarNames, sep = ".")
+
+    if (!is.null(parentVarNames)) {
+      if(identical(style$columnNames, "pretty")) {
+        parentVarNames <- paste("Parent", parentVarNames, sep = " ")
+      } else {
+        parentVarNames <- paste("@parent", parentVarNames, sep = ".")
+      }
     }
-    
+
     vrNames <- c(vrNames, "@parent", parentVarNames)
   }
   if (style$recordId) vrNames[length(vrNames)+1] <- "_id"