@@ -287,7 +287,18 @@ lineupRanking <- function(columns = c("_*", "*"),
287287# ' @param width,height Must be a valid CSS unit (like \code{'100\%'},
288288# ' \code{'800px'}, \code{'auto'}) or a number, which will be coerced to a
289289# ' string and have \code{'px'} appended.
290+ # ' @rdname lineup-shiny
291+ # ' @examples # !formatR
292+ # ' library(shiny)
293+ # ' app <- shinyApp(
294+ # ' ui = fluidPage(lineupOutput('lineup')),
295+ # ' server = function(input, output) {
296+ # ' lineup <- lineupBuilder(iris) |> buildLineUp()
297+ # ' output$lineup = renderLineup(lineup)
298+ # ' }
299+ # ' )
290300# '
301+ # ' \donttest{if (interactive()) app}
291302# ' @export
292303lineupOutput <- function (outputId ,
293304 width = " 100%" ,
@@ -301,6 +312,7 @@ lineupOutput <- function(outputId,
301312# ' @param env The environment in which to evaluate \code{expr}.
302313# ' @param quoted Is \code{expr} a quoted expression (with \code{quote()})? This
303314# ' is useful if you want to save an expression in a variable.
315+ # ' @rdname lineup-shiny
304316# ' @export
305317renderLineup <- function (expr ,
306318 env = parent.frame(),
@@ -317,8 +329,18 @@ renderLineup <- function(expr,
317329# ' applications and interactive Rmd documents.
318330# '
319331# ' @inheritParams lineupOutput
332+ # ' @rdname taggle-shiny
333+ # ' @examples # !formatR
334+ # ' library(shiny)
335+ # ' app <- shinyApp(
336+ # ' ui = fluidPage(taggleOutput('taggle')),
337+ # ' server = function(input, output) {
338+ # ' taggle <- lineupBuilder(iris) |> buildTaggle()
339+ # ' output$taggle = renderTaggle(taggle)
340+ # ' }
341+ # ' )
320342# '
321- # '
343+ # ' \donttest{if (interactive()) app}
322344# ' @export
323345taggleOutput <- function (outputId ,
324346 width = " 100%" ,
@@ -329,6 +351,7 @@ taggleOutput <- function(outputId,
329351# ' Shiny render bindings for taggle
330352# '
331353# ' @inheritParams renderLineup
354+ # ' @rdname taggle-shiny
332355# '
333356# ' @export
334357renderTaggle <- function (expr ,
0 commit comments