fix: linting

Author: sgratzl

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
-Version: 4.3.0
-Date: 2022-08-09 23:53:33 UTC
-SHA: 0f23d26d63db1792f4867a5989db48db1fc45e3a
+Version: 4.6.0
+Date: 2022-08-12 00:38:58 UTC
+SHA: 1fec4f1a3a68b4b88da3b637ebaaf62b30d9b5da

R/lineup.R

@@ -291,14 +291,16 @@ lineupRanking <- function(columns = c("_*", "*"),
 #' @examples # !formatR
 #' library(shiny)
 #' app <- shinyApp(
-#'   ui = fluidPage(lineupOutput('lineup')),
+#'   ui = fluidPage(lineupOutput("lineup")),
 #'   server = function(input, output) {
 #'     lineup <- lineupBuilder(iris) |> buildLineUp()
-#'     output$lineup = renderLineup(lineup)
+#'     output$lineup <- renderLineup(lineup)
 #'   }
 #' )
 #'
-#' \donttest{if (interactive()) app}
+#' \donttest{
+#' if (interactive()) app
+#' }
 #' @export
 lineupOutput <- function(outputId,
                          width = "100%",
@@ -333,14 +335,16 @@ renderLineup <- function(expr,
 #' @examples # !formatR
 #' library(shiny)
 #' app <- shinyApp(
-#'   ui = fluidPage(taggleOutput('taggle')),
+#'   ui = fluidPage(taggleOutput("taggle")),
 #'   server = function(input, output) {
 #'     taggle <- lineupBuilder(iris) |> buildTaggle()
-#'     output$taggle = renderTaggle(taggle)
+#'     output$taggle <- renderTaggle(taggle)
 #'   }
 #' )
 #'
-#' \donttest{if (interactive()) app}
+#' \donttest{
+#' if (interactive()) app
+#' }
 #' @export
 taggleOutput <- function(outputId,
                          width = "100%",