correctly handle lists of tags

This commit is contained in:
JJ Allaire
2012-07-19 13:03:25 -07:00
parent 1d8f1b4c6a
commit 49150b07fd

View File

@@ -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))