最近(2013 年 2 月)添加到 Orgmode 意味着您现在应该能够在源代码中嵌入 org 标题,然后使用 orgstruct-mode 浏览它们。因此,通过 git 升级您的 org 模式,然后尝试打开以下示例 R 文件。当您在嵌入了 org 标题的注释行上时,只需按 TAB 或 shift-TAB,您应该会得到 org-mode 标题。
### * Create data
data = list( s1=list(x=1:3, y=3:1),
s2=list(x=1:5, y=1:5), s3=list(x=1:4, y=rep(3,4)))
### * Base graphics version
par(mfrow=c(2,2))
lapply(data, plot)
### * Lattice version
nplots <- length(data)
pts.per.plot <- sapply(data, function(l) length(l$x))
df <- data.frame(which=rep(1:nplots, times=pts.per.plot),
x=unlist(sapply(data, function(l) l$x)),
y=unlist(sapply(data, function(l) l$y)))
xyplot(y~x|which, data=df, layout=c(2,2))
### ** Make the pdf
pdf(file='o.pdf')
xyplot(y~x|which, data=df, layout=c(2,1))
dev.off()
### * End of file
### Local Variables:
### eval: (orgstruct-mode 1)
### orgstruct-heading-prefix-regexp: "### "
### End: