Skip to content

Commit 1fec4f1

Browse files
committed
feat: further fixes
1 parent 5727743 commit 1fec4f1

File tree

2 files changed

+26
-2
lines changed

2 files changed

+26
-2
lines changed

DESCRIPTION

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -24,7 +24,8 @@ Suggests:
2424
testthat,
2525
lintr,
2626
remotes,
27-
styler
27+
styler,
28+
shiny
2829
RoxygenNote: 7.2.0
2930
VignetteBuilder: knitr
3031
Language: en-US

R/lineup.R

Lines changed: 24 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -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
292303
lineupOutput <- 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
305317
renderLineup <- 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
323345
taggleOutput <- 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
334357
renderTaggle <- function(expr,

0 commit comments

Comments
 (0)