{{ message }}

Instantly share code, notes, and snippets.

🐢
Only 120 more Github issues to deal with

# Yihui Xieyihui

🐢
Only 120 more Github issues to deal with
Created Jul 20, 2019
Collapsible Code Output for xaringan
View collapseoutput.js

Created Apr 17, 2013
Little shell script to streamline using knitr from the command line, or in case you want to use it with something like emacs which can call a shell script to compile a document.
View knit.sh
 #!/bin/bash # knit.sh -- Dave Kleinschmidt, April 2013 # streamline knitting of Rnw files from the command line. usage="Usage: $0 input-filename.Rnw [-nolatex] [-notangle]" if [$# -lt 1 ]; then echo $usage exit 1 fi Last active Apr 11, 2018 Find local maxima (peaks) in a vector View find_peaks.r  #' Finds the local maxima (peaks) in the given vector after smoothing the data #' with a kernel density estimator. #' #' First, we smooth the data using kernel density estimation (KDE) with the #' \code{\link{density}} function. Then, we find all the local maxima such that #' the density is concave (downward). #' #' Effectively, we find the local maxima with a discrete analogue to a second #' derivative applied to the KDE. For details, see this StackOverflow post: #' \url{http://bit.ly/Zbl7LV}. Created Mar 26, 2013 The Joys of Sparsity: Forward Stagewise Regression View gist:5248212  # Generate (x, y) data with a sparse set of active predictors # prob controls the frequency of predictors having zero effect function simulate_date(n::Integer, p::Integer, prob::Real) x = randn(n, p) beta = randn(p) for j in 1:p if rand() < prob beta[j] = 0.0 end end Created Mar 21, 2013 R function to deal with sprintf("%.2f", ...) returning -0.00 View sprintf_fix.R  # a function to deal with sprintf("%.2f", ...) returning -0.00 # see https://twitter.com/hspter/status/314858331598626816 f <- function(..., dig=2) { g <- sprintf(paste0("%.", dig, "f"), ...) z <- paste0("0.", paste(rep("0", dig), collapse="")) g[g==paste0("-",z)] <- z g } Created Oct 25, 2012 A sample demo of R Markdown with pandoc View Makefile  RMDFILE=demo-rmd-pandoc PANDOC=~/.cabal/bin/pandoc all: Rscript -e "require(knitr); require(markdown); knit('$(RMDFILE).rmd', '$(RMDFILE).md'); purl('$(RMDFILE).rmd')" ${PANDOC} --mathjax --toc -B header.html -A footer.html --bibliography refs.bib --css markdown.css -s$(RMDFILE).md -o $(RMDFILE).html Created Jun 22, 2012 report generation by spin View script.R  #' # Rスクリプトからレポート生成 #' # spinning in knitr package #' #' ### @kohske #' #' Rスクリプトはこちら #' https://gist.github.com/gists/2975392 #' #' --- #' Created May 10, 2012 Convert Rd files to HTML, knit()'ing examples View Rd2Knitr2HTML.R  #!/usr/bin/Rscript library(tools) library(knitr) library(sowsear) opts_knit$set(progress = FALSE, verbose = FALSE) ## We need a list of files and a package to start. args <- commandArgs(TRUE) package <- args[[1]] files <- args[-1]
Created Mar 16, 2012
GFM Table with knitr + ascii
View gfm-table.md

Here is how you can make a table in GFM format using knitr + ascii

render_gfm()
gfm_table <- function(x, ...) {
require(ascii)
y <- capture.output(print(ascii(x, ...), type = "org"))
# substitute + with | for table markup
Created Feb 26, 2012
Collection of knitr Hooks
View ext-env.tex
 % Full Screen Environment for Beamer Slides \newenvironment{changemargin}[2]{% \begin{list}{}{% \setlength{\topsep}{0pt}% \setlength{\leftmargin}{#1}% \setlength{\rightmargin}{#2}% \setlength{\listparindent}{\parindent}% \setlength{\itemindent}{\parindent}% \setlength{\parsep}{\parskip}% }%