placed hass app here

moved hass app

albert_rapp_tutorials/020524_arapp_basic_app_1/app.R

@@ -0,0 +1,50 @@
+# Creating apps with R-Shiny by Albert Rapp
+
+# Anatomy of a Shiny App
+
+# 1) User Interface (UI): What your user sees in the app.
+# 2) Server function: The brains behind the operation (more on that later).
+# 3) ShinyApp() function call that ties UI & server together.
+
+# As you’ve seen in the code, every input function needs three things:
+
+# 1) First an ID,
+# 2) A label of that UI element,
+# 3) Followed by input-specific arguments
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  # A slider
+  sliderInput(
+    'my_slider',
+    'Select your number',
+
+    min = 0,
+    max = 1,
+    value = 0.5,
+    step = 0.1
+  ),
+
+  # A dropdown menu
+  selectInput(
+    'my_dropdown_menu',
+    'Pick your color',
+
+    choices = c('red', 'green', 'blue')
+  ),
+
+  # Add a text output
+  textOutput('my_generated_text')
+)
+
+server <- function(input, output, session){
+  output$my_generated_text <- renderText({
+    paste(
+      input$my_dropdown_menu,
+      input$my_slider
+    )
+  })
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/080524_arapp_basic_app_2/app.R

@@ -0,0 +1,35 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/r-shiny-events
+
+# Event listeners with R-Shiny
+
+# Setting up a simple shiny app
+
+# First, let us set up a little Shiny app. Let’s throw in
+
+# 1) A slider input using sliderInput(),
+# 2) An action button using actionButton(), and
+# 3) A text output using textOutput().
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  sliderInput('slider', 'Slider', 
+              min = 1, max = 100, value = 50),
+  actionButton('button', 'Button'),
+  textOutput('text')
+)
+
+# req() helps one control reactivity
+# isolate() helps one to isolate inputs
+#  bindEvent() is more useful than isolate() and observeEvent()
+
+server <- function(input, output, session){
+  output$text <- renderText({
+    req(input$button >= 1)
+    print(input$button)
+    input$slider
+  }) |> bindEvent(input$button)
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/160524_arapp_basic_app_3/app_1.R

@@ -0,0 +1,56 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/r-shiny-events
+
+# Reactive expressions in R-Shiny
+
+# Setting up a simple shiny app
+
+# 1) bslib::layout_column_wrap() to place things next to each other.
+# 2) {DT} packages to create a table output.
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  bslib::layout_column_wrap(
+    selectInput(
+      'species', 
+      'Choose your species', 
+      unique(palmerpenguins::penguins$species)
+    ),
+    selectInput(
+      'island', 
+      'Choose your island', 
+      unique(palmerpenguins::penguins$island)
+    )
+  ),
+  bslib::layout_column_wrap(
+    plotOutput('plot'),
+    DT::dataTableOutput('tbl')
+  )
+)
+
+
+library(tidyverse)
+server <- function(input, output, session) {
+  output$plot <- renderPlot({
+    palmerpenguins::penguins |> 
+      filter(
+        !is.na(sex),
+        species == input$species,
+        island == input$island
+      ) |>
+      ggplot(aes(x = flipper_length_mm, y = bill_depth_mm)) +
+      geom_point(size = 3)
+  }) 
+
+  output$tbl <- DT::renderDT({
+    palmerpenguins::penguins |> 
+      filter(
+        !is.na(sex),
+        species == input$species,
+        island == input$island
+      ) 
+  })
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/160524_arapp_basic_app_3/app_2.R

@@ -0,0 +1,55 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/r-shiny-events
+
+# Reactive expressions in R-Shiny
+
+# Setting up a simple shiny app
+
+# 1) Avoid code repetition.
+# 2) The easiest way to do that is the reactive() function.
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  bslib::layout_column_wrap(
+    selectInput(
+      'species', 
+      'Choose your species', 
+      unique(palmerpenguins::penguins$species)
+    ),
+    selectInput(
+      'island', 
+      'Choose your island', 
+      unique(palmerpenguins::penguins$island)
+    )
+  ),
+  bslib::layout_column_wrap(
+    plotOutput('plot'),
+    DT::dataTableOutput('tbl')
+  )
+)
+
+server <- function(input, output, session) {
+  filtered_data <- reactive({
+    palmerpenguins::penguins |> 
+      filter(
+        !is.na(sex),
+        species == input$species,
+        island == input$island
+      )
+  })
+
+  output$plot <- renderPlot({
+    # CALL the reactive
+    filtered_data() |>
+      ggplot(aes(x = flipper_length_mm, y = bill_depth_mm)) +
+      geom_point(size = 3)
+  }) 
+
+  output$tbl <- DT::renderDT({
+    # CALL the reactive
+    filtered_data()
+  })
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/160524_arapp_basic_app_3/app_3.R

@@ -0,0 +1,62 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/r-shiny-events
+
+# Reactive expressions in R-Shiny
+
+# Setting up a simple shiny app
+
+# 1) reactiveVal() vs reactive()
+# 2) There are other ways to create reactive values. 
+# 3) For example, there’s also reactiveVal(). 
+#    This function lets you assign values more manually.
+# 4) Requires an observer for input values
+#    - define the reactiveVal() outside the observe() code, and
+#    - update the reactiveVal() inside of observe().
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  bslib::layout_column_wrap(
+    selectInput(
+      'species', 
+      'Choose your species', 
+      unique(palmerpenguins::penguins$species)
+    ),
+    selectInput(
+      'island', 
+      'Choose your island', 
+      unique(palmerpenguins::penguins$island)
+    )
+  ),
+  bslib::layout_column_wrap(
+    plotOutput('plot'),
+    DT::dataTableOutput('tbl')
+  )
+)
+
+server <- function(input, output, session) {
+  # Intialize reactiveVal()
+  filtered_data <- reactiveVal()
+  observe({
+    dat <- palmerpenguins::penguins |> 
+      filter(
+        !is.na(sex),
+        species == input$species,
+        island == input$island
+      )
+    filtered_data(dat) # update the reactiveVal()
+  })
+
+  output$plot <- renderPlot({
+    filtered_data() |>
+      ggplot(aes(x = flipper_length_mm, y = bill_depth_mm)) +
+      geom_point(size = 3)
+  }) 
+
+  output$tbl <- DT::renderDT({
+    filtered_data()
+  })
+}
+
+
+shinyApp(ui, server)

albert_rapp_tutorials/160524_arapp_basic_app_3/app_4.R

@@ -0,0 +1,58 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/r-shiny-events
+
+# Reactive expressions in R-Shiny
+
+# Setting up a simple shiny app
+
+# 1) Use reactiveValues() function if you don't like the syntax of 
+#    reactiveVal()
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  bslib::layout_column_wrap(
+    selectInput(
+      'species', 
+      'Choose your species', 
+      unique(palmerpenguins::penguins$species)
+    ),
+    selectInput(
+      'island', 
+      'Choose your island', 
+      unique(palmerpenguins::penguins$island)
+    )
+  ),
+  bslib::layout_column_wrap(
+    plotOutput('plot'),
+    DT::dataTableOutput('tbl')
+  )
+)
+
+server <- function(input, output, session) {
+  # Intialize list
+  r_list <- reactiveValues()
+  observe({
+    dat <- palmerpenguins::penguins |> 
+      filter(
+        !is.na(sex),
+        species == input$species,
+        island == input$island
+      )
+    r_list$filtered_data <- dat # update 
+  })
+
+  output$plot <- renderPlot({
+    # use data from list (without parantheses)
+    r_list$filtered_data |>
+      ggplot(aes(x = flipper_length_mm, y = bill_depth_mm)) +
+      geom_point(size = 3)
+  }) 
+
+  output$tbl <- DT::renderDT({
+    # use data from list (without parantheses)
+    r_list$filtered_data
+  })
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/240524_arapp_basic_app_4/app_1.R

@@ -0,0 +1,25 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/shiny-dynamic-ui
+
+# Dynamic UI with R-Shiny
+
+# Insert and remove UI (Part 1)
+
+# The first way to create a dynamic UI experience is pretty easy.
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  radioButtons(
+    'yesno', 
+    'Do you like this? ', 
+    c('Yes', 'No'),
+    selected = character(0) # no selection at first
+  )
+)
+
+server <- function(input, output, session) {
+
+}
+
+shinyApp(ui, server)

albert_rapp_tutorials/240524_arapp_basic_app_4/app_2.R

@@ -0,0 +1,49 @@
+# Creating apps with R-Shiny by Albert Rapp
+# Website: https://3mw.albert-rapp.de/p/shiny-dynamic-ui
+
+# Dynamic UI with R-Shiny
+
+# Insert and remove UI (Part 2)
+
+# Depending on if “Yes” or “No” is selected, you want to throw in some specific 
+# part into your user interface. In these cases, you can use the insertUI() function
+
+library(shiny)
+
+ui <- bslib::page_fluid(
+  radioButtons(
+    'yesno', 
+    'Do you like this? ', 
+    c('Yes', 'No'),
+    selected = character(0) # no selection at first
+  )
+)
+
+server <- function(input, output, session) {
+  observe({
+    if (input$yesno == 'Yes') {
+      insertUI(
+        # Place new UI after the radio button
+        # (the element with the id 'yesno')
+        selector = '#yesno', 
+        where = 'afterEnd',
+        # What ui to insert
+        ui = sliderInput(
+          'slider', 
+          'How much do you like this (10 = very)', 
+          min = 1, 
+          max = 10, 
+          value = 5
+        )
+      )
+    } else {
+      insertUI(
+        selector = '#yesno',
+        where = 'afterEnd',
+        ui = textInput('textinput', 'Why not?')
+      )
+    }
+  }) |> bindEvent(input$yesno)
+}
+
+shinyApp(ui, server)