yihui · June 30, 2021 18:01 · isomorphisms · Nov 6, 2014 · jemus42 · Apr 5, 2019
diff --git a/README.md b/README.md
diff --git a/knitr-html-themes.R b/knitr-html-themes.R
 library(knitr)
 themes = knit_theme$get()
 pat_brew()  # use brew patterns <%  %>
 for (theme in themes) knit('theme.brew', paste('theme-', theme, '.Rhtml', sep = ''))
 knit_patterns$restore() # clear patterns

 mapply(knit, input = list.files(pattern = '\\.Rhtml$'))

 writeLines(c(
  '<!DOCTYPE html>
 <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-us" lang="en-us">
 <head>
 <meta http-equiv="content-type" content="text/html; charset=utf-8" />
 <title>Highlight themes in knitr</title>
 <meta name="author" content="Taiyun Wei and Yihui Xie" />
 </head>
 <body>', 
  paste(sprintf('<iframe src="%s" width="800" height="520" scrolling="auto" style="display: block; margin: auto;"></iframe>',
                list.files(pattern = '^theme-.*\\.html$')), collapse = '<hr />\n'),
  '</body>
 </html>'),
  con = 'index.html')

 browseURL('index.html')
diff --git a/knitr-latex-themes.R b/knitr-latex-themes.R
 # knitr syntax highlighting theme examples overview
 # Berry Boessenkool, [email protected], Sept 2014

 library(knitr)
 themes <- knit_theme$get()
 Code <- "'R sample'; \"string2\" # comment.    # examples from Tinn R
 var_a = 1:100  ; var.b <- 1: 4.6  # Numbers, Identifier
 1 + 1 - 1 * 1 / 1 ^ 1 < 6 & !TRUE;  #h$k ?  # Operator, Symbol
 tryCatch(NA); NULL; TRUE; T; FALSE; if(F) 7  # Programming
 mean; as.data.frame(iris) # Function, dataset
 plot(4, col='blue', cex=0.5) # Plotting
 foo = function(dummy=NA) if (TRUE) {  for (i in 1:10) x <- NULL }"
 #sqrt(-1)  # warning  #1 + \"a\"  # error" only makes sense if eval=TRUE

 for(i in 1:length(themes))
 {
 file <- paste0("theme-",themes[i],".Rnw")
 # Header:
 cat("\\documentclass{article}
 \\usepackage[paperheight=3.3cm,paperwidth=14cm, left=0cm,right=0cm,
  top=0cm,bottom=0cm]{geometry}
 \\begin{document}\n", file=file)
 # Code
 cat(paste0("<<theme",i,", echo=FALSE>>=
 knit_theme$set(knit_theme$get('", themes[i], "'))
 @\n"), file=file, append=TRUE)
 cat(paste0("<<code",i,", eval=FALSE>>=\n"), file=file, append=TRUE)
 cat(paste(themes[i], "   ;", Code), file=file, append=TRUE)
 cat("\n@\n\n", file=file, append=TRUE)
 # Enddoc:
 cat("\\end{document}", file=file, append=TRUE)
 #
 # Make PDF
 knit2pdf(input=paste0("theme-",themes[i],".Rnw"))
 }

 # combine_all
 pdffiles <- dir(pattern=glob2rx("*.pdf"))
 pdffiles <- pdffiles[-42] # "fine_blue" does not work...
 file <- "2_combine_all.Rnw"
 #
 cat("\\documentclass[a4paper]{article}
 \\usepackage[cm]{fullpage}
 \\begin{document}
 \\center
 knitr syntax highlighting theme examples overview\\\\
 Berry Boessenkool, [email protected], Sept 2014\n\n", file=file)
 #
 for(i in 1:length(pdffiles))
 cat(paste0("\\includegraphics[width=.8\\linewidth]{",pdffiles[i],"}\n"),
 file=file, append=TRUE)
 #
 cat("\\end{document}", file=file, append=TRUE)

 # knit2pdf(input=file) # doesnt work for me, so I just knit that via Rstudio.
diff --git a/theme.brew b/theme.brew
 <!DOCTYPE html>
 <html>
  <head>
  <title>Code highlight themes in knitr: <% theme %></title>
  </head>
  <body>

  <p>Code highlight themes in knitr: "<a href="#" target="_blank" title="View in a new frame"><strong><% theme %></strong></a>"</p>
 <!--begin.rcode include=FALSE
 knit_theme$set('<% theme %>')
 end.rcode-->

 <!--begin.rcode eval=FALSE
 ## credit: https://gist.github.com/2155443
 s=embed(rt(5,1),2);plot(t(replicate(1e4,s[4,]<<-(s[4,]+s[sample(3,1),])/2)),cex=.1)
 end.rcode-->

 <!--begin.rcode
 1+1
 x=sqrt(-1)  # warning
 message('knitr says hello to HTML!') # message
 1+'a'  # error
 end.rcode-->

  <p>Let's ask R what is the value of &pi;? Of course it is <!--rinline pi -->.</p>
 </body>
 </html>
	library(knitr)
	themes = knit_theme$get()
	pat_brew() # use brew patterns <% %>
	for (theme in themes) knit('theme.brew', paste('theme-', theme, '.Rhtml', sep = ''))
	knit_patterns$restore() # clear patterns

	mapply(knit, input = list.files(pattern = '\\.Rhtml$'))

	writeLines(c(
	'<!DOCTYPE html>
	<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-us" lang="en-us">
	<head>
	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
	<title>Highlight themes in knitr</title>
	<meta name="author" content="Taiyun Wei and Yihui Xie" />
	</head>
	<body>',
	paste(sprintf('<iframe src="%s" width="800" height="520" scrolling="auto" style="display: block; margin: auto;"></iframe>',
	list.files(pattern = '^theme-.*\\.html$')), collapse = '<hr />\n'),
	'</body>
	</html>'),
	con = 'index.html')

	browseURL('index.html')
	# knitr syntax highlighting theme examples overview
	# Berry Boessenkool, [email protected], Sept 2014

	library(knitr)
	themes <- knit_theme$get()
	Code <- "'R sample'; \"string2\" # comment. # examples from Tinn R
	var_a = 1:100 ; var.b <- 1: 4.6 # Numbers, Identifier
	1 + 1 - 1 * 1 / 1 ^ 1 < 6 & !TRUE; #h$k ? # Operator, Symbol
	tryCatch(NA); NULL; TRUE; T; FALSE; if(F) 7 # Programming
	mean; as.data.frame(iris) # Function, dataset
	plot(4, col='blue', cex=0.5) # Plotting
	foo = function(dummy=NA) if (TRUE) { for (i in 1:10) x <- NULL }"
	#sqrt(-1) # warning #1 + \"a\" # error" only makes sense if eval=TRUE

	for(i in 1:length(themes))
	{
	file <- paste0("theme-",themes[i],".Rnw")
	# Header:
	cat("\\documentclass{article}
	\\usepackage[paperheight=3.3cm,paperwidth=14cm, left=0cm,right=0cm,
	top=0cm,bottom=0cm]{geometry}
	\\begin{document}\n", file=file)
	# Code
	cat(paste0("<<theme",i,", echo=FALSE>>=
	knit_theme$set(knit_theme$get('", themes[i], "'))
	@\n"), file=file, append=TRUE)
	cat(paste0("<<code",i,", eval=FALSE>>=\n"), file=file, append=TRUE)
	cat(paste(themes[i], " ;", Code), file=file, append=TRUE)
	cat("\n@\n\n", file=file, append=TRUE)
	# Enddoc:
	cat("\\end{document}", file=file, append=TRUE)
	#
	# Make PDF
	knit2pdf(input=paste0("theme-",themes[i],".Rnw"))
	}

	# combine_all
	pdffiles <- dir(pattern=glob2rx("*.pdf"))
	pdffiles <- pdffiles[-42] # "fine_blue" does not work...
	file <- "2_combine_all.Rnw"
	#
	cat("\\documentclass[a4paper]{article}
	\\usepackage[cm]{fullpage}
	\\begin{document}
	\\center
	knitr syntax highlighting theme examples overview\\\\
	Berry Boessenkool, [email protected], Sept 2014\n\n", file=file)
	#
	for(i in 1:length(pdffiles))
	cat(paste0("\\includegraphics[width=.8\\linewidth]{",pdffiles[i],"}\n"),
	file=file, append=TRUE)
	#
	cat("\\end{document}", file=file, append=TRUE)

	# knit2pdf(input=file) # doesnt work for me, so I just knit that via Rstudio.
	<!DOCTYPE html>
	<html>
	<head>
	<title>Code highlight themes in knitr: <% theme %></title>
	</head>
	<body>

	<p>Code highlight themes in knitr: "<a href="#" target="_blank" title="View in a new frame"><strong><% theme %></strong></a>"</p>
	<!--begin.rcode include=FALSE
	knit_theme$set('<% theme %>')
	end.rcode-->

	<!--begin.rcode eval=FALSE
	## credit: https://gist.github.com/2155443
	s=embed(rt(5,1),2);plot(t(replicate(1e4,s[4,]<<-(s[4,]+s[sample(3,1),])/2)),cex=.1)
	end.rcode-->

	<!--begin.rcode
	1+1
	x=sqrt(-1) # warning
	message('knitr says hello to HTML!') # message
	1+'a' # error
	end.rcode-->

	<p>Let's ask R what is the value of π? Of course it is <!--rinline pi -->.</p>
	</body>
	</html>