wookietreiber

Table of Contents

1. Table of Contents
2. General Usage
3. File Spacing
4. Numbering and Calculations
5. Conversion and Substitution
6. Selective Printing
7. Selective Deletion

wookietreiber

---

groups:

  - name: datetime
    interval: 60s
    rules:

      - record: daylight_saving_time
        expr: |

wookietreiber

R - Interactive Sessions and Command Line Interface

This is a template for R projects that should work both on the command line as well as in an interactive session.

Template Files

The template is made up of three files:

1. foo.r

wookietreiber

# To record both mic and other audio input sources we need to add a named output sink. See:
# http://www.linuxquestions.org/questions/linux-software-2/alsa-and-pulseaudio-recording-multiple-input-devices-877614/
# http://www.youtube.com/watch?v=oJADNOY615Y&feature=player_embedded
# Add this to your /etc/pulse/default.pa file

load-module module-null-sink sink_name=stream
load-module module-loopback latency_msec=5 sink=stream
load-module module-loopback latency_msec=5 sink=stream

wookietreiber

#!/bin/bash

function usage { cat << EOF
usage: git ignore [--global|--local|--repo] PATTERN

ignores PATTERN in git

PATTERN may include wildcard. you may want to quote it:

        # ignores all pdf files that are in the current directory

wookietreiber

#!/bin/bash

input=$1

while read -r file
do
  orig="$file"
  neu="${file}.sonich42xxx"

  echo "orig: $orig"

wookietreiber

#!/usr/bin/env bash

set -efu -o pipefail

# returns staged files
function staged.files {
  if git rev-parse --verify HEAD &> /dev/null
  then
    against=HEAD
  else

wookietreiber

#!/bin/bash

set \
  -o errexit \
  -o pipefail \
  -o noglob \
  -o nounset \

app=$(basename "$0" .sh)

wookietreiber

[Unit]
Description=battery notification

[Service]
Environment="DISPLAY=:0"
ExecStart=/bin/bash /path/to/battery-notification.sh 20 10
Type=oneshot

[Install]
WantedBy=default.target

wookietreiber

suppressMessages(library(lintr))

files <- commandArgs(trailingOnly = T)

messages <- function(file) {
    result <- lint(file)
    print(result)
    return(length(result))
}