Force arguments

R/tags.R

@@ -302,6 +302,8 @@ tagAppendAttributes.shiny.tag <- function(tag, ...) {
 
 #' @export
 tagAppendAttributes.shiny.tag.function <- function(tag, ...) {
+  force(tag)
+  force(...)
   tagFunction(function() {
     tag <- doTagFunction(tag)
     tagAppendAttributes(tag, ...)
@@ -350,6 +352,8 @@ tagAppendChild.shiny.tag <- function(tag, child) {
 
 #' @export
 tagAppendChild.shiny.tag.function <- function(tag, child) {
+  force(tag)
+  force(child)
   tagFunction(function() {
     tag <- doTagFunction(tag)
     tagAppendChild(tag, child)
@@ -371,6 +375,9 @@ tagAppendChildren.shiny.tag <- function(tag, ..., list = NULL) {
 
 #' @export
 tagAppendChildren.shiny.tag.function <- function(tag, ..., list = NULL) {
+  force(tag)
+  force(...)
+  force(list)
   tagFunction(function() {
     tag <- doTagFunction(tag)
     tagAppendChildren(tag, ..., list)
@@ -391,6 +398,9 @@ tagSetChildren.shiny.tag <- function(tag, ..., list = NULL) {
 
 #' @export
 tagSetChildren.shiny.tag.function <- function(tag, ..., list = NULL) {
+  force(tag)
+  force(...)
+  force(list)
   tagFunction(function() {
     tag <- doTagFunction(tag)
     tagSetChildren(tag, ..., list)

R/template.R

@@ -77,7 +77,7 @@ htmlTemplate <- function(filename = NULL, ..., text_ = NULL, document_ = "auto")
 #'
 #' This function renders \code{html_document} objects, and returns a string with
 #' the final HTML content. It calls the \code{\link{renderTags}} function to
-#' convert any shiny.tag objects to HTML. It also finds any any web dependencies
+#' convert any shiny.tag objects to HTML. It also finds any web dependencies
 #' (created by \code{\link{htmlDependency}}) that are attached to the tags, and
 #' inserts those. To do the insertion, this function finds the string
 #' \code{"<!-- HEAD_CONTENT -->"} in the document, and replaces it with the web