brettkobo

# Personal Photo Histry
library("rPlotter")
library("magrittr")
library("grid")
library("gridSVG")
library("ggplot2")

#retreives list of every .jpeg on my hard-drive
files_list1 <- list.files(path="//Volumes//Seagate Backup Plus Drive/Pictures/", pattern = ".*(jpg|JPG|jpeg|JPEG)", full.names=T, recursive=T)
files_list2 <- list.files(path="//Volumes//Seagate Backup Plus Drive/Picuters /", pattern = ".*(jpg|JPG|jpeg|JPEG)", full.names=T, recursive=T)

brettkobo

<script type="text/javascript">

// pulls the value out of the parameter from a URL
function getParameterByName(name) {
    name = name.replace(/[\[]/, "\\[").replace(/[\]]/, "\\]");
    var regex = new RegExp("[\\?&]" + name + "=([^&#]*)"),
        results = regex.exec(location.search);
    return results === null ? "" : decodeURIComponent(results[1].replace(/\+/g, " "));
}

brettkobo

#googling the distance
library("jsonlite")
library("ggplot2")
library("httr")
library("scales")

#setting theme for ggplot2
mar <- 10
themeBrettrics <- theme(plot.title = element_text(size = 15, face = "bold", margin = margin(10, 0, 10, 0)),
                        axis.ticks = element_line(color = "black"),

brettkobo

library(tidyverse)
library(lubridate)
devtools::install_github("andrie/gcalendr")
library(gcalendr)

calendar_auth()

calendar_ids <- calendar_list()

events <- calendar_events("email-address@domain.com", days_in_past = 480)