Skip to content

Instantly share code, notes, and snippets.

Avatar

Sam Firke sfirke

View GitHub Profile
@sfirke
sfirke / solaredge_retrieval.py
Created Dec 30, 2020
Retrieving SolarEdge solar panel generation data from the API using Python
View 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
@sfirke
sfirke / janitor_usage_analysis.R
Last active Mar 13, 2021
Analysis of janitor downloads
View 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
@sfirke
sfirke / cran_downloads_jan_feb_2021.csv
Created Mar 4, 2021
Download counts of all R packages on CRAN for Jan-Feb 2021
View 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
@sfirke
sfirke / render_keep_md.R
Last active May 22, 2020
Function to build R package vignettes, retaining both .md and .Rmd
View 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)
}
@sfirke
sfirke / fix_surveymonkey_two_row_headers.R
Last active Mar 29, 2018
(roughly) handle SurveyMonkey exports where the variable names are split over the first two rows
View 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, ])
@sfirke
sfirke / clean_names.R
Created Jan 29, 2016
Cleaning data.frame names with dplyr
View clean_names.R
clean_names <- function(dat){
# Takes a data.frame, returns the same data frame with cleaned names
old_names <- names(dat)
new_names <- old_names %>%
gsub("%", "percent", .) %>%
make.names(.) %>%
gsub("[.]+", "_", .) %>%
tolower(.) %>%
gsub("_$", "", .)
setNames(dat, new_names)
@sfirke
sfirke / tidytext_wordclouds.R
Created Mar 9, 2018
Make wordclouds from a text column in R
View tidytext_wordclouds.R
library(pacman)
p_load(tidytext, wordcloud, janeaustenr, dplyr)
data("stop_words")
ppdf <- data.frame(prideprejudice, stringsAsFactors = FALSE)
# create a word cloud
create_word_cloud <- function(dat, col_name, exclude = "", max.words = 50, colors = "#034772", ...){
col <- deparse(substitute(col_name))
dat %>%
@sfirke
sfirke / split_tinker_combine_tidyverse.R
Created Mar 7, 2018
Using split with magrittr's $%$ to reference the names of the listed data.frames
View split_tinker_combine_tidyverse.R
# I want to remove duplicate mpg rows where cylinder is 4
# Split, tinker with the data.frames by name, bind_rows
library(magrittr)
library(dplyr)
mtcars %>%
split(., .$cyl == 4) %$%
bind_rows(`FALSE`,
`TRUE` %>%
distinct(mpg, .keep_all = TRUE))
@sfirke
sfirke / add_centered_title.R
Last active Sep 21, 2017
Center all of your ggplot2 titles over the whole plot using a function
View add_centered_title.R
library(ggplot2)
library(dplyr)
library(grid)
library(gridExtra)
add_centered_title <- function(p, text, font_size){
title.grob <- textGrob(
label = text,
gp = gpar(fontsize = font_size,
View file28dc3223345c.R
Package: janitor
Title: Simple Tools for Examining and Cleaning Dirty Data
Version: 0.3.0.9000
Authors@R: c(person("Sam", "Firke", email = "samuel.firke@gmail.com", role = c("aut", "cre")),
person("Chris", "Haid", email = "chrishaid@gmail.com", role = "ctb"),
person("Ryan", "Knight", email = "ryangknight@gmail.com", role = "ctb"))
Description: The main janitor functions can: perfectly format data.frame column
names; provide quick one- and two-variable tabulations (i.e., frequency
tables and crosstabs); and isolate duplicate records. Other janitor functions
nicely format the tabulation results. These tabulate-and-report functions