agdamsbo

# check.packages function: install and load multiple R packages.
# Check to see if packages are installed. Install them if they are not, then load them into the R session.
# Supplied repo to be used with RScript in terminal
check.packages <- function(pkg){
  new.pkg <- pkg[!(pkg %in% installed.packages()[, "Package"])]
  if (length(new.pkg)) 
    install.packages(new.pkg, dependencies = TRUE, repos=structure(c(CRAN="http://cloud.r-project.org/")))
  sapply(pkg, require, character.only = TRUE)
}

agdamsbo

blueprint:
  name: ESPhome switch SDTH
  description: |
    Different actions for different clicks. 
    Based on text_sensor in ESPhome switch.
    
    ESPhome configuration example: https://gist.github.com/agdamsbo/819c27a5b986c38327d4b19057cbfb6d
    
    ## Inspiration ##
    ESPhome decoupled approach: https://www.esphome-devices.com/devices/Shelly-1/

agdamsbo

substitutions:
  devicename: ude-syd-shelly1-3
  channel_1: Hoveddør og parkering
  ip: 192.168.1.107

  ssid: !secret wifi_iot_ssid
  wifi_pass: !secret wifi_iot_password
  password: !secret esphome_api_password
  dns1: 1.1.1.1
  dns2: 1.0.0.1