RickPack

# Point to location containing https://github.com/RickPack/meetupxlanimate/blob/master/R/rExcelhelper.R
Rhelper_folder <- "C:/Documents/R/Helper/"

require(pacman)
## installs packages it not found, but need pacman R package!
pacman::p_load(dplyr, openxlsx, readr, RecordLinkage, stringr)
source(paste0(Rhelper_folder, "rExcelhelper.R"))

## Location of data?
indir <- "C:/Documents/student/Mentoring/"

RickPack

## CODE DISCUSSED in blog post: https://rickpackblog.wordpress.com/2022/07/18/bivariate-choropleths-with-biscale-package-new-si-prefix-in-legend/
## Outputs into save_folder a bivariate choropleth .PNG depcicting a county's
## median income vs. median rent using Jenks Natural Breaks Classification
state_var  <- "FL"
county_var <- "Miami-Dade County"
save_folder <- "C:/Users/rick2/Documents/Rick/blog/biscale/"

#### Census API key
## Only need this line because API key stored in .Renviron
## If not stored, get Census API key at http://api.census.gov/data/key_signup.html then run

RickPack

---
title: "Stack Overflow Consecutive PNG"
author: "Rick Pack"
date: "11/20/2019"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

RickPack

RickPack

####################################################
##  Reads email addresses copied and pasted from  ##
##  Surveymonkey screens into .txt files and then ##
##  removes them from the original list. The      ##
##  final Excel workbook has the cleaned emails,  ##
##  a copy of the previously created second sheet ##
##  (invalid emails, produced by                  ##
##  excel_email_cleaner_new.R, found at:          ##
##  https://gist.github.com/RickPack/907a200cd40c786e19d045b379527f6d)  ##
##  and then worksheets with (i) bounced email    ##

RickPack

library(httr)
library(tidyverse)
library(jsonlite)
library(meetupr)
library(lubridate)
library(magick)
library(directlabels)

###################################
## If need to use local CSV file ##

RickPack

library(httr)
library(tidyverse)
library(jsonlite)
library(meetupr)
library(lubridate)
library(magick)

AMPM <- "PM"
todaydt <- str_replace_all(as.character(Sys.Date()), "-","_")

RickPack

library(httr)
library(tidyverse)
library(jsonlite)
library(meetupr)
library(lubridate)
library(magick)
# Installed from Rick Pack's fork of dmpe's 
# February, 2019 Github update that uses
# Bitly API 4.0.0
# https://github.com/RickPack/urlshorteneR/

RickPack

library(httr)
library(tidyverse)
library(jsonlite)
library(meetupr)
library(lubridate)

# Get your Meetup key by going to
# https://secure.meetup.com/meetup_api/key/
MEETUP_KEY = "NOT_SHOWN"

RickPack

# Modification of Hadley's "Welcome to the Tidyverse"
#   demo of new dplyr group_split()
library(gapminder)
library(dplyr)
library(purrr)
library(ggplot2)
gap_plot <- function(data) {   data %>%     
    arrange(desc(pop)) %>%     
    ggplot(aes(gdpPercap, lifeExp)) +     
    geom_point(aes(fill = continent, size = pop), shape = 21) +