wch

> install.packages("Rcpp")
Installing package into ‘/Users/winston/R/3.6’
(as ‘lib’ is unspecified)
trying URL 'https://cloud.r-project.org/bin/macosx/el-capitan/contrib/3.6/Rcpp_1.0.4.tgz'
Content type 'application/x-gzip' length 3124401 bytes (3.0 MB)
==================================================
downloaded 3.0 MB


The downloaded binary packages are in

wch

This is an example of C code calling an R function, by building a function call and then evaluating it.

wch

# First, need to install crandb
# devtools::install_github('r-hub/crandb')

# Memoize crandb::package because we end up making a lot of repetitive calls.
package <- memoise::memoise(crandb::package)

# Get a list of built-in packages. We don't need to check the version
# information for these packages.
builtin_pkgs <- memoise::memoise(function() {
  pkgs <- installed.packages()

wch

library(httpuv)

PORT <- 7000

app <- list(
  call = function(req) {
    page(req)
  },
  onWSOpen = function(ws) {
    ws$onMessage(function(binary, message) {

wch

## 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`

wch

# 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 */

wch

# 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])))

wch

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);

wch

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)
  

wch

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")