joshuaulrich

void do_gc(SEXP env) {
  SEXP s, t;
  PROTECT(s = t = allocList(1));
  SET_TYPEOF(s, LANGSXP);
  SETCAR(t, install("gc")); t = CDR(t);
  PrintValue(eval(s, env));
  UNPROTECT(1);
}

joshuaulrich

getOptionOld <- function(x, default = NULL) {
    if(missing(default) || x %in% names(options()))
      .Internal(getOption(x))
    else
      default
}

getOptionNew <- function(x, default = NULL) {
  ans <- .Internal(getOption(x))
  if(is.null(ans)) default else ans

joshuaulrich

#!/usr/bin/perl
# Usage: read -s PASSWORD && ./bcrypt-password.pl
use Crypt::Eksblowfish::Bcrypt;

# Read password and salt from environment variables
$password = $ENV{PASSWORD};
$salt = "lfVQ/T2N3dhFVvvPro2Hfu"
$encrypted = encrypt_password($password, $salt);

# Extract bcrypt version, cost, salt, and hashed password

joshuaulrich

Keybase proof

I hereby claim:

• I am joshuaulrich on github.
• I am joshuaulrich (https://keybase.io/joshuaulrich) on keybase.
• I have a public key ASDcjSYFiNY5lotsu7tcXthTsae6mRwUHF1G48R03YG-AQo

To claim this, I am signing this object:

joshuaulrich

With the introduction of GitHub's Squash and Merge feature, this has become less prevelant, however it's still useful in scenarios where GitHub's interface is unavailable.

Let's talk through two ways to do a squash and merge on the command line.

Take 1: Interactive Rebase

When to use it

• When you have not merged master into your feature branch
• There are no merge conflicts

joshuaulrich

update.realtime <-
function(ticker, history = NULL)
{
  if (is.null(history)) {
      history <- getSymbols(ticker, from = "2018-01-01", auto.assign = FALSE)
  }
  today <- getQuote(ticker, src = "yahoo")
  now <- as.Date(today[,"Trade Time"])
  cn <- c("Open", "High", "Low", "Last", "Volume", "Last")
  live <- xts(today[, cn], now)

joshuaulrich

require(quantmod)

do_chart <- function(symbol) {
   quote <- getQuote(symbol)
   quote$Close <- quote$Last
   xts(OHLCV(quote), quote[,"Trade Time"],
       pct_change = quote[,"% Change"])
}

filename <- "intraday-sp500.rds"

joshuaulrich

#!/usr/bin/awk -f
# GNU Awk 3.1.8
#
# Tutorial:
# http://www.grymoire.com/Unix/Awk.html
#
BEGIN{ FS=","; OFS=","; filename="" }
{
  if(NR==1) {                        # the first record/line is the header
    header=substr($0,8)              # store to write to each symbol file

joshuaulrich