Fixed that (and also added code to unroll lists of tags i.e. call the
flattenTags function on the inputs).


On Wed, Dec 11, 2013 at 5:52 PM, Hadley Wickham <notifications@github.com>wrote:

> In R/bootstrap-layout.R:
>
> > +#' @export
> > +horizontalLayout <- function(...) {
> > +  fluidRow(column(12, ...))
> > +}
> > +
> > +#' Pull elements left or right
> > +#'
> > +#' Pull an element to the left or right side of a \code{\link{horizontalLayout}}.
> > +#'
> > +#' @param ... Element or list of elements to pull left or right
> > +#'
> > +#' @rdname horizontalLayout
> > +#' @export
> > +pullLeft <- function(...) {
> > +  lapply(list(...), function(element) {
> > +    element$attribs$class <- paste(element$attribs$class, "pull-left")
>
> Should these check that there are only html components in ...? If you
> accidentally supply a bare text string, you'll get an unhelpful errorr
> message.
>
> —
> Reply to this email directly or view it on GitHub<https://github.com/rstudio/shiny/pull/327/files#r8285328>
> .
>