Sam Firke sfirke

## fix_surveymonkey_two_row_headers.R
# Fix dual-row names: if the first row is not NA or containing the word "response", use the one from the first row
# Note: read your SurveyMonkey .csv with readr::read_csv, not read.csv - otherwise this may not work

library(dplyr)
library(janitor)

fix_SM_dual_row_names <- function(dat){
  current_names <- names(dat)
  row_1 <- unlist(dat[1, ])


## render_keep_md.R
# From https://stackoverflow.com/questions/45575971/compile-a-vignette-using-devtoolsbuild-vignette-so-that-md-is-kept-in-the-v
# Usage: render_keep_md("tabyls")

render_keep_md <- function(vignette_name){
  # added the "encoding" argument to get the oe character passed through correctly to the resulting .Md
  rmarkdown::render(paste0("./vignettes/",vignette_name, ".Rmd"), clean=FALSE,  encoding = 'UTF-8')
  files_to_remove = paste0("./vignettes/",vignette_name, c(".html",".knit.md",".utf8.md"))
  lapply(files_to_remove, file.remove)
}

## janitor_usage_analysis.R
# Exploring download counts of a single package
x <- cranlogs::cran_downloads("janitor", from = "2016-10-03", to = "2021-03-12")

library(tidyverse)
library(lubridate)
library(tntpr) # from devtools::install_github("tntp/tntpr")

x$wday <- wday(x$date)
x$weekday <- ifelse(x$wday %in% c(1,7), "Weekend", "Weekday")
x$year <- tntpr::date_to_sy(x$date, as.Date("2016-10-02")) # segments into years using a cutoff date

## cran_downloads_jan_feb_2021.csv

          
            package
            total_downloads

            
              A3
              2769

            
              aaSEA
              1254

            
              AATtools
              855

            
              ABACUS
              1298

            
              abbyyR
              1745

            
              abc
              3119

            
              abc.data
              3364

            
              ABC.RAP
              1412

            
              abcADM
              1135

## airflow_health_monitor.sh
#!/bin/bash

# Monitors the health of the scheduler container in an Airflow docker compose deployment, sends SMTP email if it's unhealthy
# Change as needed to match your container name and your SMTP server settings
# Requires the sendemail package being installed on the host machine
# sudo apt-get install sendemail, if on Ubuntu

# Get container health status
healthy=$(docker inspect -f '{{.State.Health.Status}}' airflow-airflow-scheduler-1)

## solaredge_retrieval.py
import pandas as pd
import solaredge
import time

s = solaredge.Solaredge("YOUR-API-KEY")
site_id = YOUR-SITE-ID

# Edit this date range as you see fit
# If querying at the maximum resolution of 15 minute intervals, the API is limited to queries of a month at a time
# This script queries one day at a time, with a one-second pause per day that is polite but probably not necessary
	# Fix dual-row names: if the first row is not NA or containing the word "response", use the one from the first row
	# Note: read your SurveyMonkey .csv with readr::read_csv, not read.csv - otherwise this may not work

	library(dplyr)
	library(janitor)

	fix_SM_dual_row_names <- function(dat){
	current_names <- names(dat)
	row_1 <- unlist(dat[1, ])
	# From https://stackoverflow.com/questions/45575971/compile-a-vignette-using-devtoolsbuild-vignette-so-that-md-is-kept-in-the-v
	# Usage: render_keep_md("tabyls")

	render_keep_md <- function(vignette_name){
	# added the "encoding" argument to get the oe character passed through correctly to the resulting .Md
	rmarkdown::render(paste0("./vignettes/",vignette_name, ".Rmd"), clean=FALSE, encoding = 'UTF-8')
	files_to_remove = paste0("./vignettes/",vignette_name, c(".html",".knit.md",".utf8.md"))
	lapply(files_to_remove, file.remove)
	}
	# Exploring download counts of a single package
	x <- cranlogs::cran_downloads("janitor", from = "2016-10-03", to = "2021-03-12")

	library(tidyverse)
	library(lubridate)
	library(tntpr) # from devtools::install_github("tntp/tntpr")

	x$wday <- wday(x$date)
	x$weekday <- ifelse(x$wday %in% c(1,7), "Weekend", "Weekday")
	x$year <- tntpr::date_to_sy(x$date, as.Date("2016-10-02")) # segments into years using a cutoff date
	package	total_downloads
	A3	2769
	aaSEA	1254
	AATtools	855
	ABACUS	1298
	abbyyR	1745
	abc	3119
	abc.data	3364
	ABC.RAP	1412
	abcADM	1135
	#!/bin/bash

	# Monitors the health of the scheduler container in an Airflow docker compose deployment, sends SMTP email if it's unhealthy
	# Change as needed to match your container name and your SMTP server settings
	# Requires the sendemail package being installed on the host machine
	# sudo apt-get install sendemail, if on Ubuntu

	# Get container health status
	healthy=$(docker inspect -f '{{.State.Health.Status}}' airflow-airflow-scheduler-1)
	import pandas as pd
	import solaredge
	import time

	s = solaredge.Solaredge("YOUR-API-KEY")
	site_id = YOUR-SITE-ID

	# Edit this date range as you see fit
	# If querying at the maximum resolution of 15 minute intervals, the API is limited to queries of a month at a time
	# This script queries one day at a time, with a one-second pause per day that is polite but probably not necessary