zverhope

tell application "Bookends"
	set theIDs to «event ToySRUID» "Selection"
	repeat with theID in paragraphs of theIDs
		tell front library window
			try
				set myRefs to (publication items whose id is theID)
				set myItem to first item of myRefs
				set thePath to path of attachment items of myItem

zverhope

tell application "Bookends"
	tell front library window
		set theIDs to get id of publication items of group item "Unlinked Attachments"
		repeat with theID in theIDs
			try
				set myRefs to (publication items whose id is theID)
				set myItem to first item of myRefs
				set {theKey, thePath, theAuthor, theEditor, theTitle} to {citekey, path of attachment items, authors, editors, title} of myItem
				if theAuthor = "" then set theAuthor to theEditor
				set theRIS to format myItem using "RIS.fmt"

egouldo

# Source: http://www.cookbook-r.com/Manipulating_data/Converting_between_data_frames_and_contingency_tables/#countstocases-function
# Convert from data frame of counts to data frame of cases.
# `countcol` is the name of the column containing the counts
countsToCases <- function(x, countcol = "Freq") {
    # Get the row indices to pull from x
    idx <- rep.int(seq_len(nrow(x)), x[[countcol]])

    # Drop count column
    x[[countcol]] <- NULL

jennybc

## this snippet was the original gist but the Rmd solution below is even nicer

## auto-generate a visual index as README.md in current working directory
fig_files <- list.files(pattern = "jpg$") # change to png$ as needed!
writeLines(paste0(fig_files, "\n",
                  "![`", fig_files, "`](", fig_files, ")\n\n"), "README.md")

stla

## generates two datasets for illustration
I <- 3 # nb tests 
J <- 4 # nb timepoints
dat1 <- data.frame(
  Test=gl(I,J,labels=LETTERS[1:I]),
  timepoint=rep(1:J,I)
)
dat1 <- transform(dat1, y=round(rnorm(I*J,2*timepoint),1))
I <- 5 # nb tests 
J <- 3 # nb timepoints

derekvan

(* EXPORT ALL SKIM NOTES TO EVERNOTE WITH HYPERLINKS

-- Stephen Margheim
-- 9/7/13
-- open source

REQUIRED PROGRAMS:
- Skim (pdf viewer and annotator)
- Evernote (cloud based note app)

Thell

```{r setup, echo=FALSE, results='hide'}
chunkref <- local({
  function(chunklabel) {
    sprintf('[%s](#%s)', chunklabel, chunklabel )
  }  
})

secref <- local({
  function(seclabel) {
    sprintf('[%s](#%s)', seclabel, seclabel )

dfalster

##' Modifies 'data' by adding new values supplied in newDataFileName
##'
##' newDataFileName is expected to have columns 
##' c(lookupVariable,lookupValue,newVariable,newValue,source)
##' 
##' Within the column 'newVariable', replace values that
##' match 'lookupValue' within column 'lookupVariable' with the value
##' newValue'.  If 'lookupVariable' is NA, then replace *all* elements
##' of 'newVariable' with the value 'newValue'.
##'

stephenturner

## Function for arranging ggplots. use png(); arrange(p1, p2, ncol=1); dev.off() to save.
require(grid)
vp.layout <- function(x, y) viewport(layout.pos.row=x, layout.pos.col=y)
arrange_ggplot2 <- function(..., nrow=NULL, ncol=NULL, as.table=FALSE) {
	dots <- list(...)
	n <- length(dots)
	if(is.null(nrow) & is.null(ncol)) { nrow = floor(n/2) ; ncol = ceiling(n/nrow)}
	if(is.null(nrow)) { nrow = ceiling(n/ncol)}
	if(is.null(ncol)) { ncol = ceiling(n/nrow)}
        ## NOTE see n2mfrow in grDevices for possible alternative

yihui

See http://animation.r-forge.r-project.org/knitr/ for a preview of all knitr themes in HTML, and http://rclickhandbuch.files.wordpress.com/2014/09/knitrthemesoverview.pdf for a preview in LaTeX (credit to Berry Boessenkool).

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