ad1729

The knitr themes manual can be found at (Rnw source).

	# After Ubuntu 16.04, Systemd becomes the default.
	# It is simpler than https://gist.github.com/Doowon/38910829898a6624ce4ed554f082c4dd

	[Unit]
	Description=Jupyter Notebook

	[Service]
	Type=simple
	PIDFile=/run/jupyter.pid
	ExecStart=/home/phil/Enthought/Canopy_64bit/User/bin/jupyter-notebook --config=/home/phil/.jupyter/jupyter_notebook_config.py

	#!/bin/bash

	# These variables can be overwritten using the arguments below
	VERSION="1.1.463"
	# drwho is listed as user in YARN's Resource Manager UI.
	USER="drwho"
	# Depending on where the EMR cluster lives, you might have to change this to avoid security issues.
	# To change the default password (and user), use the arguments bellow.
	# If the cluster is not visible on the Internet, you can just leave the defaults for convenience.
	PASS="tardis"

	getCI <- function(B, muH0, sdH0, N) {
	getM <- function(orgDV, idx) {
	bsM <- mean(orgDV[idx]) # M*
	bsS2M <- (((N-1) / N) * var(orgDV[idx])) / N # S^2*(M)
	c(bsM, bsS2M)
	}

	DV <- rnorm(N, muH0, sdH0) # simulated data: original sample
	M <- mean(DV) # M from original sample
	S2M <- (((N-1)/N) * var(DV)) / N # S^2(M) from original sample

	# this scrubs emoji sequences from a string - i think it covers all of them

	def strip_emoji ( str )
	str = str.force_encoding('utf-8').encode
	clean_text = ""

	# emoticons 1F601 - 1F64F
	regex = /[\u{1f600}-\u{1f64f}]/
	clean_text = str.gsub regex, ''

	max_plots <- 5

	ui <- fluidPage(

	headerPanel("Dynamic number of plots"),

	sidebarPanel(
	sliderInput("n", "Number of plots", value=1, min=1, max=5)
	),

	data_sets <- c("mtcars", "morley", "rock")

	shinyServer(function(input, output) {

	# Drop-down selection box for which data set
	output$choose_dataset <- renderUI({
	selectInput("dataset", "Data set", as.list(data_sets))
	})

	# Check boxes