---
title: "The nextGenShinyApps 2.1: Advanced R Tools for Modern Shiny Applications and Dashboards"
author: "Obinna N. Obianom"
date: "`r Sys.Date()`"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{The nextGenShinyApps 2.1: Advanced R Tools for Modern Shiny Applications and Dashboards}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)
```

Advanced tools and styling to allow the creation of the next generation of dashboards and shiny applications.

![](https://nextgenshinyapps.obi.obianom.com/adslogo2.png)

## Installation and Library Attachment

The nextGenShinyApps package is available on CRAN and can be installed as shown below

`install.packages(nextGenShinyApps)`

Attach library 

`library(nextGenShinyApps)`

## Use

The nextGenShinyApps examples can be accessed as shown below


```{r eval=FALSE,echo=TRUE}

# library
library(nextGenShinyApps)

# load.example(EXAMPLEx)
# Where EXAMPLEx can be either “Plain”, “noSideBar”, “Card”, “Tab”, 
# “Modal”, “Form”, “Button”, “Spinner”, “Alert”, “Accordion”

```




## Example code to get started

### Output

![](https://nextgenshinyapps.obi.obianom.com/nextgenshinyapps.png){style="width:100%"}

### Input

```{r eval=FALSE,echo=TRUE}

# 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)
}

```


  
## Examples and Demo Pages

View examples and demo pages at https://nextgenshinyapps.obi.obianom.com/
View other packages created by me at https://coursewhiz.org