Will Landau wlandau

## app.R
library(shiny)
library(crew)
library(promises)
library(bslib)

run_task <- function(model, n, delay_secs) {
  Sys.sleep(delay_secs)
  model(n)
}

## .gitignore
.Rproj.user
.Rhistory
.RData
*.Rproj
*.html

## fixed_choice_design_sim.R
# Fixed Choice Design Lunchtime Simulation
# 2019-02-06

library(igraph)
library(dplyr)
library(ggplot2)

#Experimental Conditions
conds <- expand.grid(
  c(150),

## unlockEnvironment.r
library(inline)

inc <- '
/* This is taken from envir.c in the R 2.15.1 source
   https://github.com/SurajGupta/r-source/blob/master/src/main/envir.c
*/
#define FRAME_LOCK_MASK (1<<14)
#define FRAME_IS_LOCKED(e) (ENVFLAGS(e) & FRAME_LOCK_MASK)
#define UNLOCK_FRAME(e) SET_ENVFLAGS(e, ENVFLAGS(e) & (~ FRAME_LOCK_MASK))
'

## pingpong.R
#!/usr/bin/env Rscript

# 2018-06-04 11:26:12
# Automatically generated from R by autoparallel version 0.0.1

library(parallel)

nworkers = 2
timeout = 600
	library(shiny)
	library(crew)
	library(promises)
	library(bslib)

	run_task <- function(model, n, delay_secs) {
	Sys.sleep(delay_secs)
	model(n)
	}
	# Fixed Choice Design Lunchtime Simulation
	# 2019-02-06

	library(igraph)
	library(dplyr)
	library(ggplot2)

	#Experimental Conditions
	conds <- expand.grid(
	c(150),
	library(inline)

	inc <- '
	/* This is taken from envir.c in the R 2.15.1 source
	https://github.com/SurajGupta/r-source/blob/master/src/main/envir.c
	*/
	#define FRAME_LOCK_MASK (1<<14)
	#define FRAME_IS_LOCKED(e) (ENVFLAGS(e) & FRAME_LOCK_MASK)
	#define UNLOCK_FRAME(e) SET_ENVFLAGS(e, ENVFLAGS(e) & (~ FRAME_LOCK_MASK))
	'
	#!/usr/bin/env Rscript

	# 2018-06-04 11:26:12
	# Automatically generated from R by autoparallel version 0.0.1

	library(parallel)

	nworkers = 2
	timeout = 600