init shinylive

.Rbuildignore

@@ -8,3 +8,4 @@
 ^LICENSE\.md$
 ^.vscode$
 ^index\.md$
+^README\.Rmd$

DESCRIPTION

@@ -22,3 +22,5 @@ Imports:
     shiny,
     magrittr,
     httpuv
+Depends: 
+    R (>= 2.10)

R/utils-shiny.R

@@ -468,3 +468,16 @@ buildTabItem <- function (index, tabsetId, foundSelected, tabs = NULL, divTag =
   }
   return(list(liTag = liTag, divTag = divTag))
 }
+
+create_link_iframe <- function(link) {
+  shiny::tags$iframe(
+    class = "html-fill-item",
+    src = link,
+    height = "800", 
+    width = "100%", 
+    style = "border: 1px solid rgba(0,0,0,0.175); border-radius: .375rem;", 
+    allowfullscreen = "", 
+    allow = "autoplay", 
+    `data-external` = "1"
+  )
+}

README.Rmd

@@ -0,0 +1,44 @@
+---
+output: github_document
+---
+
+<!-- README.md is generated from README.Rmd. Please edit that file -->
+
+# shiny386
+
+<!-- badges: start -->
+[![CRAN status](https://www.r-pkg.org/badges/version/shiny386)](https://CRAN.R-project.org/package=shiny386)
+[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
+[![R build status](https://github.com/RinteRface/shiny386/workflows/R-CMD-check/badge.svg)](https://github.com/RinteRface/shiny386/actions)
+<!-- badges: end -->
+
+The goal of shiny386 is to provide an old school Bootstrap 4 template for Shiny. It is built on top of the [Bootstrap 386](http://kristopolous.github.io/BOOTSTRA.386/demo.html) HTML template.
+
+## Installation
+
+You can install the released version of shiny386 from Github with:
+
+``` r
+pak::paks("RinteRface/shiny386")
+```
+
+## Example
+
+This is a basic example which shows you how to solve a common problem:
+
+``` r
+library(shiny)
+library(shiny386)
+ui <- page_386(
+ card_386(
+  title = "My card",
+  "This is my card",
+  br(),
+  card_link_386(href = "https://www.google.com", "More"),
+  footer = "Card footer"
+ )
+)
+
+server <- function(input, output, session) {}
+shinyApp(ui, server)
+```

README.md

@@ -1,20 +1,29 @@
 
+<!-- README.md is generated from README.Rmd. Please edit that file -->
+
 # shiny386
 
 <!-- badges: start -->
-[![CRAN status](https://www.r-pkg.org/badges/version/shiny386)](https://CRAN.R-project.org/package=shiny386)
-[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
-[![R build status](https://github.com/RinteRface/shiny386/workflows/R-CMD-check/badge.svg)](https://github.com/RinteRface/shiny386/actions)
+
+[![CRAN
+status](https://www.r-pkg.org/badges/version/shiny386)](https://CRAN.R-project.org/package=shiny386)
+[![Lifecycle:
+experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
+[![R build
+status](https://github.com/RinteRface/shiny386/workflows/R-CMD-check/badge.svg)](https://github.com/RinteRface/shiny386/actions)
 <!-- badges: end -->
 
-The goal of shiny386 is to provide an old school Bootstrap 4 template for Shiny. It is built on top of the [Bootstrap 386](http://kristopolous.github.io/BOOTSTRA.386/demo.html) HTML template.
+The goal of shiny386 is to provide an old school Bootstrap 4 template
+for Shiny. It is built on top of the [Bootstrap
+386](http://kristopolous.github.io/BOOTSTRA.386/demo.html) HTML
+template.
 
 ## Installation
 
 You can install the released version of shiny386 from Github with:
 
 ``` r
-remotes::install_github("RinteRface/shiny386")
+pak::paks("RinteRface/shiny386")
 ```
 
 ## Example
@@ -37,4 +46,3 @@ ui <- page_386(
 server <- function(input, output, session) {}
 shinyApp(ui, server)
 ```
-

_pkgdown.yml

@@ -0,0 +1,3 @@
+template:
+  bootstrap: 5
+url: https://shiny386.rinterface.com/

index.Rmd

@@ -0,0 +1,60 @@
+---
+output: github_document
+always_allow_html: true
+---
+
+```{r setup, include=FALSE}
+library(bslib)
+knitr::opts_chunk$set(echo = TRUE)
+```
+
+# shiny386
+
+<!-- badges: start -->
+[![CRAN status](https://www.r-pkg.org/badges/version/shiny386)](https://CRAN.R-project.org/package=shiny386)
+[![Lifecycle: experimental](https://img.shields.io/badge/lifecycle-experimental-orange.svg)](https://www.tidyverse.org/lifecycle/#experimental)
+[![R build status](https://github.com/RinteRface/shiny386/workflows/R-CMD-check/badge.svg)](https://github.com/RinteRface/shiny386/actions)
+<!-- badges: end -->
+
+The goal of shiny386 is to provide an old school Bootstrap 4 template for Shiny. It is built on top of the [Bootstrap 386](http://kristopolous.github.io/BOOTSTRA.386/demo.html) HTML template.
+
+## Installation
+
+You can install the released version of shiny386 from Github with:
+
+``` r
+pak::pak("RinteRface/shiny386")
+```
+
+## Demo
+
+```{r showcase-code, eval=TRUE, echo=FALSE}
+card(
+  shiny386:::create_link_iframe(shiny386:::shinylive_links["inst/examples/shinylive/basic"]),
+  full_screen = TRUE,
+  style = "margin: 0 auto; float: none;"
+)
+```
+
+The original app may be found [here](https://shiny.rstudio.com/gallery/bus-dashboard.html)
+
+## Example
+
+This is a basic example which shows you how to solve a common problem:
+
+``` r
+library(shiny)
+library(shiny386)
+ui <- page_386(
+ card_386(
+  title = "My card",
+  "This is my card",
+  br(),
+  card_link_386(href = "https://www.google.com", "More"),
+  footer = "Card footer"
+ )
+)
+
+server <- function(input, output, session) {}
+shinyApp(ui, server)
+```