dantonnoriega

import sublime, sublime_plugin

class MoveForwardToSectionCommand(sublime_plugin.TextCommand):
    def run(self, edit):
        v = self.view
        s = v.sel()

        pattern = "^[ ]*# [#]{4,}|^[ ]*[#]{4,}|^[ ]*#+ [\w]+.+[-]+$|^`{3}"

        # get current point and then look forward

dantonnoriega

Set up tmux with a vim REPL on a linux box

1. install https://github.com/tpope/vim-pathogen into ~/.vim/
2. install https://github.com/jpalardy/vim-slime into ~/.vim/bundle
3. copied default vimrc to a user copy: cp /etc/vimrc ~/.vim/vimrc
4. added the following to the end of ~/.vim/vimrc

" vim slime
let g:slime_python_ipython = 1

dantonnoriega

[
{
        "id": "tools",
        "children":
        [{
            "caption": "SublimeREPL",
            "mnemonic": "r",
            "id": "SublimeREPL",
            "children":
            [

dantonnoriega

dantonnoriega

# $match example for zsh
# inspiration:
# https://stackoverflow.com/questions/13043344/search-and-replace-in-bash-using-regular-expressions

# reprex

mkdir CS106B
cd CS106B

# download mp4s of programmming abstraction

dantonnoriega

# script UTM

# functions
get_utm <- function(x) {

  # empty frame
  ef <- structure(list(cf_affiliate_id = character(1), utm_source = character(1),
    utm_medium = character(1), utm_campaign = character(1), utm_term = character(1),
    utm_content = character(1), webinar_delay = character(1),
    purchase_product_ids = character(1), purchase_taxamo_transaction_key = character(1),

dantonnoriega

# Creating html plots with highcharter and generating high resolution PNGs of plots with webshot

library(highcharter)

# set up directories
OUTPUT_HTML <- '~/Downloads/hc-webshot-example/html'
OUTPUT_PNG <- '~/Downloads/hc-webshot-example/png'
if(!dir.exists(OUTPUT_HTML)) dir.create(OUTPUT_HTML, recursive = TRUE)
if(!dir.exists(OUTPUT_PNG)) dir.create(OUTPUT_PNG, recursive = TRUE)

dantonnoriega

---
title: TEST
output:
    pdf_document:
        latex_engine: xelatex
    html_document:
        fig_caption: true
---

```{r, echo = FALSE}

dantonnoriega

library(httr)
library(tidyverse)
library(xml2)
library(rvest)
devtools::install_github('dantonnoriega/xmltools')

# SET UP VARIABLES
# record_type:
#   "0" (all incarcerated)
#   "1" (last 24 hours)

dantonnoriega

# variables
OUTPUT_DIR = "~/Dropbox/Jails/data")

DATE <- format(Sys.time(), '%Y-%m-%d')
FILENAME <- sprintf("%s-wake-county-records.csv", DATE)
url <- 'http://p2c.wakeso.net/jqHandler.ashx?op=s'

# set up form request
# query found using Chrome developer tools.
# Ran Query > Go to "Network" tab > find "jqHandler.ashx?op=s"