| library(httpuv) | |
| PORT <- 7000 | |
| app <- list( | |
| call = function(req) { | |
| page(req) | |
| }, | |
| onWSOpen = function(ws) { | |
| ws$onMessage(function(binary, message) { |
| ## Modifying a vector in a parent environment | |
| ## This tests whether it's faster to use `self` or not, and whether it's faster to use `<-` vs `<<-`. | |
| foo <- local({ | |
| x <- integer() | |
| self <- environment() | |
| # Four different ways of setting a value: | |
| # * With and without using `self` |
| # get_symbols() returns all symbols that are registered in R's symbol table. | |
| # | |
| # new_symbols() returns all symbols that have been added since the last time | |
| # new_symbols() was run. If you want to test whether your code causes the symbol | |
| # table to grow, run new_symbols(), then run your code, then run new_symbols() | |
| # again. | |
| get_symbols <- inline::cfunction( | |
| includes = " | |
| #define HSIZE 49157 /* The size of the hash table for symbols */ |
| # This script can be sourced from RStudio, or run with Rscript. | |
| # Returns the file currently being sourced or run with Rscript | |
| this_file <- function() { | |
| cmdArgs <- commandArgs(trailingOnly = FALSE) | |
| needle <- "--file=" | |
| match <- grep(needle, cmdArgs) | |
| if (length(match) > 0) { | |
| # Rscript | |
| return(normalizePath(sub(needle, "", cmdArgs[match]))) |
| docker run --rm -ti rhub/debian-gcc-devel | |
| echo -e " | |
| #include <stdlib.h> | |
| #include <string.h> | |
| char* create_string(const char* value) { | |
| // strlen doesn't count null terminator | |
| int n = strlen(value) + 1; | |
| char* str = (char *) malloc(n); |
| library(promises) | |
| library(later) | |
| # Regular version =========== | |
| # Interrupts during execution of a step in the promise chain cause the chain to stop | |
| # without running further steps, the catch, or finally. | |
| # Ideally, the finally would run, but not the others. | |
| { | |
| p <- promise_resolve(TRUE) | |
| library(httpuv) | |
| s <- startServer("0.0.0.0", 5000, | |
| list( | |
| call = function(req) { | |
| txt <- as.list(req$HEADERS) | |
| txt <- paste(capture.output(str(txt)), collapse = "\n") | |
| txt <- paste0(req$REQUEST_METHOD, " ", req$PATH_INFO, " \n", txt) | |
| cat(txt, "\n\n") |
| f <- function() { | |
| stop("foo") | |
| } | |
| withCallingHandlers( | |
| { | |
| withRestarts({ | |
| f() | |
| 1 | |
| }, |
This document shows how to fork a GitHub repo and work from your fork to create clean branches and pull requests. The key is to make sure you stay in sync with the upstream fork's master branch.
First, fork the repo by clicking the Fork button on GitHub. For example, you could fork the tidyverse/ggplot2 repo at https://github.com/tidyverse/ggplot2.
| time_check <- function(filename) { | |
| times_df <- function(filename, label) { | |
| times <- file.info(filename)[c('mtime', 'ctime', 'atime')] | |
| as.data.frame(list(label = label, as.list(times))) | |
| } | |
| unlink(filename) | |
| file.create(filename) | |
| times <- times_df(filename, "creation") |