Correct the .parse() function in the biscuits post

[matt-dray]

parsed <- parsed[parsed$terminal == TRUE, ] should read parsed <- tokens[tokens$terminal == TRUE, ].

[matt-dray]

In fact, the whole thing can be simplified to:

.parse <- function(string) {
  tokens <- getParseData(parse(text = string))
  parsed <- tokens[tokens$terminal == TRUE, ]
  rownames(parsed) <- as.character(seq(nrow(parsed)))
  return(parsed)
}

In other words, no need to treat the input to parse() as a file input. Will need to update the body text to reflect this too.