correctly handle lists of tags

2026-01-10 23:48:01 -05:00 · 2012-07-19 13:03:25 -07:00
parent 1d8f1b4c6a
commit 49150b07fd
1 changed files with 1 additions and 1 deletions
--- a/R/tags.R
+++ b/R/tags.R
@@ -83,7 +83,7 @@ createTag <- function(`_tag_name`, varArgs) {
      # process lists of children
      else if (is.list(value)) {
        for(child in value) {
-          if (isTag(value))
+          if (isTag(child))
            tag <- appendTagChild(tag, child)
          else
            tag <- appendTagChild(tag, as.character(child))