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.packages("remotes")
remotes::install_github("ColinFay/nessy")
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)
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)
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:
nessy_examples()
returns the path to all available examples.
nessy::nessy_examples()
#> [1] "app2.R" "app3.R" "app4.R" "exampleapp.R"
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.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.