# Set some variables for the info badges status <- "development-orange" pkg_version <- paste(pkgload::pkg_version(), collapse = ".") # Get badges based on variables (converted to png because Azure Devops doesn't render SVG) download.file(url = paste0("https://img.shields.io/badge/version-", pkg_version, "-blue.svg"), destfile = "inst/static/pkg-version-badge.svg") rsvg::rsvg_png(svg = "inst/static/pkg-version-badge.svg", file = "inst/static/pkg-version-badge.png") download.file(url = paste0("https://img.shields.io/badge/status-", status, ".svg"), destfile = "inst/static/app-status-badge.svg") rsvg::rsvg_png(svg = "inst/static/app-status-badge.svg", file = "inst/static/app-status-badge.png")
The goal of advancedShiny is to provide an R Shiny application which can showcase some intermediate & advanced R Shiny techniques to DfE colleagues at Coffee & Coding sessions.
You can install advancedShiny from GitHub with:
# install.packages("devtools") devtools::install_github("chrisbrownlie/advancedShiny")
The app can be run with the following command:
library(advancedShiny) run_IAS_app()
See TODO.md for a more detailed plan and structure of what the app will contain or contact Chris Brownlie for more information.
Thanks to the RStudio team for the shiny package, and to the people and organisations who have contributed to the development of shiny & R, including (but not limited to): Dean Attali, Appsilon, dreamRs, thinkR & Guangchang Yu. Much of this package and app builds from their work and I encourage you to check out their work if you want to become a shiny wizard.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.