navigation: Page Navigation

In InControlofEffects/iceComponents: A set of custom components used in the In Control of Effects application

Description

Create a container for page navigation buttons. The navigation function returns a container for the page navigation buttons.

Usage

navigation(...)

Arguments

...	Navigation buttons (back_btn, forward_btn)

Examples

if (interactive()) {
  library(shiny)
  library(iceComponents)

  # define app
  ui <- tagList(
    use_iceComponents(),
    container(
      tags$h2("Count by 5's"),
      uiOutput("count"),
      navigation(
        back_btn(inputId = "subtract", label = "Subtract 5"),
        back_btn(inputId = "add", label = "Add 5"),
      )
    )
  )

  # dynamically render pages based on page navigation
  server <- function(input, output) {

    counter <- reactiveVal(1)

    observeEvent(input$subtract, {
      counter(counter() - 5)
      output$counter <- renderUI(tags$p(counter()))
    })

    observeEvent(input$add, {
      counter(counter() + 5)
      output$count <- renderUI(tags$p(counter()))
    })

  }

  shinyApp(ui, server)
}

InControlofEffects/iceComponents documentation built on April 1, 2021, 5:51 a.m.