knitr::opts_chunk$set(
  collapse = TRUE,
  eval = FALSE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)

nessy

A NES css for Shiny.

Note: I did not code the CSS, but brought an existing one to Shiny. Give the original css a star if you like it!

Install

#install.packages("remotes")
remotes::install_github("ColinFay/nessy")

Init

Starting point

Every new page is launched by the cartridge() function. It's more or less equivalent to shiny::fluidPage(), but with NES CSS loaded.

library(nessy)

ui <- cartridge(
  title = "{nessy}",
  subtitle = "NES-style CSS Framework for Shiny.",
  footer = "{nessy}, based on NES.css"
)

server <- function(input, output, session) {

}

shiny::shinyApp(ui, server)

New container

You can simply pass along a tagList() of objects. The framed areas are launched by the container, container_simple and container_with_title functions.

library(nessy)

ui <- cartridge(
  title = "{nessy}",
  container_with_title(
      "a container", 
      octocat_animate()
  )
)

server <- function(input, output, session) {

}

shiny::shinyApp(ui, server)

UI Elements

There are five different buttons & a radio_buttons():

ui <- cartridge(
  title = "{nessy}",
  container_with_title(
    title = "Buttons",
    button("Normal", "Normal"),
    button_primary("Primary", "Primary"),
    button_success("Success", "Success"),
    button_warning("Warning", "Warning"),
    button_error("Error", "Error"),
    radio_buttons("sure", "Are you sure?", c("yes", "no"))
  )
)

server <- function(input, output, session) {

}

shiny::shinyApp(ui, server)

You can also find:

Example

nessy_examples() returns the path to all available examples.

nessy::nessy_examples()

You can then:

shiny::runApp(nessy_examples("exampleapp.R"))

Please note that the 'nessy' project is released with a Contributor Code of Conduct. By contributing to this project, you agree to abide by its terms.



ColinFay/nessy documentation built on May 29, 2019, midnight