sharing examples chapter 08 (#23)

Co-authored-by: Jon Harmon <[email protected]>

Author: AngelFelizR

examples/chapter-08/01-customize-shinybulma/01-original.R

@@ -0,0 +1,40 @@
+# devtools::install_github("RinteRface/shinybulma")
+
+library(shiny)
+library(shinybulma)
+
+shinyApp(
+  ui = bulmaPage(
+    bulmaSection(
+      bulmaTileAncestor(
+        bulmaTileParent(
+          vertical = TRUE,
+          bulmaTileChild(
+            bulmaTitle("Tile 1"),
+            p("Put some data here"),
+            color = "link"
+          ),
+          bulmaTileChild(
+            bulmaTitle("Tile 2"),
+            "Hi Bulma!",
+            color = "danger"
+          )
+        ),
+        bulmaTileParent(
+          vertical = TRUE,
+          bulmaTileChild(
+            bulmaTitle("Tile 3"),
+            p("Put some data here"),
+            color = "warning"
+          ),
+          bulmaTileChild(
+            bulmaTitle("Tile 3"),
+            ("Put some data here"),
+            color = "info"
+          )
+        )
+      )
+    )
+  ),
+  server = function(input, output) {}
+)

examples/chapter-08/01-customize-shinybulma/02-customize.R

@@ -0,0 +1,58 @@
+# devtools::install_github("RinteRface/shinybulma")
+
+library(shiny)
+library(sass)
+library(shinybulma)
+
+css <- sass(
+  sass_layer(
+    defaults = list(
+      turquoise = "#03a4ff",
+      cyan = "#e705be",
+      green = "#f3d6e9",
+      yellow = "#fdaf2c",
+      red = "#ff483e",
+      "scheme-main" = "hsl(0, 0%, 10%)"
+    ),
+    rules = sass_file(
+      input = "examples/chapter-08/bulma/bulma.sass"
+    )
+  )
+)
+
+shinyApp(
+  ui = bulmaPage(
+    tags$head(tags$style(css)),
+    bulmaSection(
+      bulmaTileAncestor(
+        bulmaTileParent(
+          vertical = TRUE,
+          bulmaTileChild(
+            bulmaTitle("Tile 1"),
+            p("Put some data here"),
+            color = "link"
+          ),
+          bulmaTileChild(
+            bulmaTitle("Tile 2"),
+            "Hi Bulma!",
+            color = "danger"
+          )
+        ),
+        bulmaTileParent(
+          vertical = TRUE,
+          bulmaTileChild(
+            bulmaTitle("Tile 3"),
+            p("Put some data here"),
+            color = "warning"
+          ),
+          bulmaTileChild(
+            bulmaTitle("Tile 3"),
+            ("Put some data here"),
+            color = "info"
+          )
+        )
+      )
+    )
+  ),
+  server = function(input, output) {}
+)

examples/chapter-08/02-customize-bs4Dash-colors/01-original.R

@@ -0,0 +1,41 @@
+library(shiny)
+library(bs4Dash)
+
+ui <- dashboardPage(
+  dashboardHeader(title = "Custom colors"),
+  dashboardSidebar(),
+  dashboardBody(
+    # Boxes need to be put in a row (or column)
+    fluidRow(
+      box(
+        solidHeader = TRUE,
+        plotOutput("plot1", height = 250),
+        status = "olive"
+      ),
+      box(
+        solidHeader = TRUE,
+        status = "lightblue",
+        title = "Controls",
+        sliderInput(
+          "slider",
+          "Number of observations:",
+          1,
+          100,
+          50
+        )
+      )
+    )
+  )
+)
+
+server <- function(input, output) {
+  set.seed(122)
+  histdata <- rnorm(500)
+
+  output$plot1 <- renderPlot({
+    data <- histdata[seq_len(input$slider)]
+    hist(data)
+  })
+}
+
+shinyApp(ui, server)

examples/chapter-08/02-customize-bs4Dash-colors/02-customize.R

@@ -0,0 +1,60 @@
+library(shiny)
+library(sass)
+library(bs4Dash)
+
+css <- sass(
+  sass_layer(
+    defaults = list(
+      lightblue = "#136377",
+      olive = "#d8bc66",
+      lime = "#fcec0c",
+      orange = "#978d01",
+      maroon = "#58482c",
+      "gray-x-light" = "#d1c5c0"
+    ),
+    rules = sass_file(
+      input = "examples/chapter-08/adminlte/adminlte.scss"
+    )
+  )
+)
+
+
+ui <- dashboardPage(
+  dashboardHeader(title = "Custom colors"),
+  dashboardSidebar(),
+  dashboardBody(
+    tags$head(tags$style(css)),
+    # Boxes need to be put in a row (or column)
+    fluidRow(
+      box(
+        solidHeader = TRUE,
+        plotOutput("plot1", height = 250),
+        status = "olive"
+      ),
+      box(
+        solidHeader = TRUE,
+        status = "lightblue",
+        title = "Controls",
+        sliderInput(
+          "slider",
+          "Number of observations:",
+          1,
+          100,
+          50
+        )
+      )
+    )
+  )
+)
+
+server <- function(input, output) {
+  set.seed(122)
+  histdata <- rnorm(500)
+
+  output$plot1 <- renderPlot({
+    data <- histdata[seq_len(input$slider)]
+    hist(data)
+  })
+}
+
+shinyApp(ui, server)

examples/chapter-08/03-fresh-example.R

@@ -0,0 +1,55 @@
+library(shiny)
+library(bs4Dash)
+library(fresh)
+
+custom_colors_theme <- create_theme(
+  bs4dash_color(
+    lightblue = "#136377",
+    olive = "#d8bc66",
+    lime = "#fcec0c",
+    orange = "#978d01",
+    maroon = "#58482c",
+    gray_x_light = "#d1c5c0"
+  )
+)
+
+
+ui <- dashboardPage(
+  freshTheme = custom_colors_theme,
+  dashboardHeader(title = "Custom colors"),
+  dashboardSidebar(),
+  dashboardBody(
+    # Boxes need to be put in a row (or column)
+    fluidRow(
+      box(
+        solidHeader = TRUE,
+        plotOutput("plot1", height = 250),
+        status = "olive"
+      ),
+      box(
+        solidHeader = TRUE,
+        status = "lightblue",
+        title = "Controls",
+        sliderInput(
+          "slider",
+          "Number of observations:",
+          1,
+          100,
+          50
+        )
+      )
+    )
+  )
+)
+
+server <- function(input, output) {
+  set.seed(122)
+  histdata <- rnorm(500)
+
+  output$plot1 <- renderPlot({
+    data <- histdata[seq_len(input$slider)]
+    hist(data)
+  })
+}
+
+shinyApp(ui, server)