Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
Advanced tools and styling to allow the creation of the next generation of dashboards and shiny applications.
The nextGenShinyApps package is available on CRAN and can be installed as shown below
install.packages(nextGenShinyApps)
Attach library
library(nextGenShinyApps)
The nextGenShinyApps examples can be accessed as shown below
# library library(nextGenShinyApps) # load.example(EXAMPLEx) # Where EXAMPLEx can be either “Plain”, “noSideBar”, “Card”, “Tab”, # “Modal”, “Form”, “Button”, “Spinner”, “Alert”, “Accordion”
{style="width:100%"}
# library library(shiny) library(nextGenShinyApps) library(r2social) library(r2resize) library(r2dictionary) if(interactive()) { # Define UI ui <- fluidPage( # Theme: Select color style from 1-13 style = "6", # Header: Insert header content using titlePanel ------------ header = titlePanel(left = "A Demo to Showcase the Features of the nextGenShinyApp R package", right = "Image logo"), # Sidebar: Insert content for sidebar ---------------------- sidebar = sidebarPanel( title = "NextGenShinyApp", "Sidebar content" ), empahsisCard(tags$h2("Welcome"),"Redefined cards with nextGenShinyApps. This box was created using r2resize R package", bg.color = "#ffffff"), # Body: Insert anything into the body-------------------- tags$h2("Basic Moveable Advanced Card"), wrapper( altPanel( card( title = "Standard card with text and a slider", # card body content tags$h4("Sample text"), "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Mi bibendum neque egestas congue quisque egestas", tags$br(), tags$br(), tags$h4("Input slider for the image"), HTML(r2dictionary::define("box")), sliderInput( inputId = "bins", label = "Number of bins:", min = 1, max = 50, value = 30 ) ) ), mainPanel( width = 4, card( title = "Standard card with a Figure", plotOutput(outputId = "distPlot"), HTML(r2dictionary::define("photo")) ) ) ), r2social.scripts(), shareButton(link = "https://rpkg.net", position = "inline") ) # Define server content server <- function(input, output) { # Sample user-defined sever logic output$distPlot <- renderPlot({ x <- faithful$waiting bins <- seq(min(x), max(x), length.out = input$bins + 1) hist(x, breaks = bins, col = "#75AADB", border = "white", xlab = "Waiting time to next eruption (in mins)", main = "Histogram of waiting times" ) }) } # Create and initialize the Shiny application shiny::shinyApp(ui, server) }
View examples and demo pages at https://nextgenshinyapps.obi.obianom.com/ View other packages created by me at https://coursewhiz.org
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.