DavisVaughan

# This example demonstrates running furrr code distributed on 2 AWS instances ("nodes").

# The instances have already been created.

library(future)
library(furrr)

# Two t2.micro AWS instances
# Created from http://www.louisaslett.com/RStudio_AMI/
public_ip <- c("34.205.155.182", "34.201.26.217")

DavisVaughan

add_job <- function(name, status, progressUnits, 
                    actions, estimate, estimateRemaining, 
                    running, autoRemove, group) {
  rstudioapi::callFun("addJob", 
                      name = name, 
                      status = status, 
                      progressUnits = progressUnits, 
                      actions = actions, 
                      estimate = estimate, 
                      estimateRemaining = estimateRemaining, 

gmbecker

argify = function(expr, recursive = FALSE) {
    if(is.character(expr))
        expr = parse(text = expr)
    else if(!is.call(expr))
        expr = substitute(expr)
    stopifnot(is.call(expr))
    if(recursive && length(expr) > 1) {
        for(i in 2:length(expr)) {
            if(is.call(expr[[i]]))
                expr[[i]] = argify(expr[[i]], TRUE)

jimhester

#include <stdint.h>
#include <stdlib.h>
#include <Rcpp.h>

// From https://en.m.wikipedia.org/wiki/Boyer%E2%80%93Moore_string_search_algorithm
#define ALPHABET_LEN 256
#define NOT_FOUND patlen
#define max(a, b) ((a < b) ? b : a)

// delta1 table: delta1[c] contains the distance between the last

cosi1

# Imports a namespace under an alias
# (equivalent of Python's `import ... as ...`)
importAs = function(namespace, alias) {
  namespace::registerNamespace(name = alias, env = asNamespace(namespace))
}

# Imports function(s) from a namespace (including unexported functions)
# to the global namespace
# (equivalent of Python's `import ... from ...`)
importFrom = function(namespace, functions) {

romainfrancois

library(emo)
library(stringr)
library(purrr)

emoji_name <- emo:::emoji_name
emoji_keyword <- emo:::emoji_keyword

maybe_emoji <- function( keyword ){
  if (keyword %in% names(emoji_name)) {

mdsumner

See https://github.com/AustralianAntarcticDivision/bowerbird

This script uses bowerbird to configure a new repository and populate it with all the R-devel tarball archives (you'll have to create ~/bower directory).

The configuration here unpacks each tarball at the end of synchronization checks.

The bb_sync(cf) step can then be run on some routine schedule to keep the local repo up to date, allowing you to forget about whether you have the latest emails and just trying whatever idea it is you had.

trestletech

download.file("https://ndownloader.figshare.com/articles/5170705/versions/1", "kd.zip")
unzip("kd.zip")

library(readr)

words <- readr::read_csv("KSP-Word.csv")
users <- readr::read_csv("KSP-User.csv")
entries <- readr::read_csv("KSP-Entry.csv")
keypress <- readr::read_csv("KSP-KeyPress.csv")
pressure <- readr::read_csv("KSP-Pressure.csv")

jimhester

mcnees

%%-----------------------------------------------------------------------
%% Make your own quadrille, graph, hex, etc paper!
%% Uses the pgf/TikZ package for LaTeX, which should be part of
%% any modern TeX installation.
%% Email: mcnees@gmail.com 
%% Twitter: @mcnees
%%-----------------------------------------------------------------------

\documentclass[11pt]{article}