💖

Jacqueline Nolis jnolis

💖

Data Scientist

jnolis / gist:e23f00d752b47671c9f0feccd333e1d4

Last active April 27, 2018 18:17

A better generator for using Keras in R for word2vec

	# the example code provided by RStudio to use R for word2vec has an error if you don't have enough data.
	# This fixes the error by having the generator reset when it runs out

	skipgrams_generator <- function(text, tokenizer, window_size, negative_samples) {
	gen <- texts_to_sequences_generator(tokenizer, sample(text))
	function() {
	next_value <- generator_next(gen)
	if(is.null(next_value)){ #if there isn't new text from the generator
	gen <<- texts_to_sequences_generator(tokenizer, sample(text)) # remake the generator
	next_value <- generator_next(gen)

jnolis / app.R

Last active August 20, 2019 01:28

Code for the my-classroom Shiny app

jnolis / Dockerfile

Last active October 9, 2018 22:56

Dockerfile for R Plumber project

	# start from the rocker/r-ver:3.5.0 image
	FROM rocker/r-ver:3.5.0

	# install the linux libraries needed for plumber
	RUN apt-get update -qq && apt-get install -y \
	libssl-dev \
	libcurl4-gnutls-dev

	# install plumber
	RUN R -e "install.packages('plumber')"

jnolis / spread.R

Last active October 29, 2018 04:07

Example spread

	library(tidyverse)

	# here is a table that spreads the way you'd want (with two rows):

	tribble(
	~a, ~b, ~c,
	"a", "x", 3,
	"a", "y", 2,
	"b", "x", 4,
	"b", "y", 7

jnolis / 3-legged-twitter-auth.R

Last active January 19, 2020 05:23

Do 3-legged Twitter authentication for rtweet

	# _____ __ __
	# \|__ / / /__ ____ _____ ____ ____/ /
	# /_ <______/ / _ \/ __ `/ __ `/ _ \/ __ /
	# ___/ /_____/ / __/ /_/ / /_/ / __/ /_/ /
	# /____/ /_/\___/\__, /\__, /\___/\__,_/
	# /____//____/
	# RTWEET + 3-LEGGED-AUTH DEMO

	# This code demonstrates how to do 3-legged authentication for Twitter
	# using the {rtweet} package. Based heavily on code from Michael Kearney and Calli Gross

jnolis / 3-legged-twitter-auth-lite.R

Last active August 7, 2021 19:30

Do 3-legged Twitter authentication for rtweet (lite version)

	# _____ __ __
	# \|__ / / /__ ____ _____ ____ ____/ /
	# /_ <______/ / _ \/ __ `/ __ `/ _ \/ __ /
	# ___/ /_____/ / __/ /_/ / /_/ / __/ /_/ /
	# /____/ /_/\___/\__, /\__, /\___/\__,_/
	# /____//____/
	# RTWEET + 3-LEGGED-AUTH DEMO (LITE)

	# This code demonstrates how to do 3-legged authentication for Twitter
	# using the {rtweet} package. Based heavily on code from Michael Kearney.

jnolis / synthwave85-nights

Last active February 7, 2020 16:48

Made your RStudio 80's style only after the sun goes down

	setHook("rstudio.sessionInit", function(chooseTheme) {
	if (chooseTheme) {
	lat <- 47.608013
	long <- -122.335167

	eighties_time <- FALSE
	if(is.element("httr",rownames(installed.packages()))){
	response <- httr::GET(paste0("https://api.sunrise-sunset.org/json?formatted=0&lat=", lat, "&lng=", long))
	if(response$status_code == 200L){
	values <- httr::content(response)

jnolis / cabinfever.R

Created April 13, 2020 17:47

Connecting many R packages at once

	library(flametree)
	library(brickr)
	library(ggplot2)
	library(png)
	library(magrittr)
	library(rayshader)
	library(rtweet)

	# CREATE TREE ------------------------------
	temp_file <- tempfile(fileext=".png")

jnolis / side-by-side.Rmd

Created April 21, 2020 13:17

Layout a grid of figures in an RMarkdown file

	---
	title: "Side-by-side images"
	author: "Jacqueline Nolis"
	date: "4/21/2020"
	output: html_document
	---

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

jnolis / wealth_plot.R

Created July 15, 2020 18:20

	library(tidyverse)

	wealth <- tibble(
	name = c(
	"Jeff Bezos", "Bill Gates", "Mark Zuckerberg", "Bernard Arnault", "Steve Ballmer",
	"Larry Page", "Elon Musk",
	"Sergey Brin", "Mukesh Ambani", "Warren Buffet"
	),
	worth = c(184, 115, 94.5, 90.8, 74.6, 72.4, 71.6, 69.7, 69.4, 68.6),
	increase = c(0.65, 0.4, 0.18, -0.11, .36, .14, 1.53, .13, .19, -0.21)