bash in R

bash.R

set_var <- function(k, v) {
	.Internal(Sys.setenv(k, v))
}

# currently just imports env vars
load_bash <- function(bash_file) {
	rl <- readLines(bash_file)
	# just find statements that begin with `export`
	raw.exports <- grep("^export", rl)
	exports <- gsub("\"", "", gsub("^export ", "", rl[raw.exports]))

	for(export in str_split(exports, "=")) {
		# since we're splitting on `=`, some base64 variables will get splat too much
		value <- paste0(export[2], rep("=", length(export)-2), collapse = "")
		set_var(export[1], value)
	}
}