yihui

stopifnot(getRversion() > '3.0.1')

par("page")
dev.off()

dev.new()

par("page")
plot(1)
par("page")

yihui

These 498 packages are currently affected by the check of ::: on CRAN:

AER
BLCOP
BSagri
BatchExperiments
BatchJobs
BayHap
BayesFactor

yihui

\documentclass{article}

\begin{document}

<<names>>=
input$firstname
input$lastname
@

\end{document}

yihui

packages_for_cran_check = function(x, db = available.packages()) {
  dep = function(x, ...) {
    if (length(x)) unique(unlist(tools::package_dependencies(x, ...)))
  }
  # install these packages to run R CMD check on me
  # x0 = dep(x, db, 'all')

  # packages that reverse depend on me
  x1 = dep(x, db, 'all', reverse = TRUE)

yihui

You may have to install the development version of the animation package from Github:

yihui

xy = matrix(0.5, 1, 2)
shinyServer(function(input, output) {
  output$myplot = renderPlot({
    hover = input$myplot_hover
    if (!is.null(hover))
      xy <<- rbind(xy, c(hover$x, hover$y))
    par(mar = rep(0, 4))
    plot.new()
    points(xy, pch = rep(c(21, 19), c(nrow(xy) - 1, 1)))
    box()

yihui

```{r twitter, fig.height=626/72, fig.width=1252/71, dev='CairoPNG'}
par(mar = rep(0, 4))
layout(matrix(1:2), heights=c(5,1))
plot(sunspots, ann=FALSE, axes=FALSE)
plot(sunspots, ann=FALSE, axes=FALSE)
```

yihui

library(RColorBrewer)
col = brewer.pal(3, 'Paired')[-1]
par(mfrow = c(1, 2), mar = c(0, 0, 2, 0))
pie(c(estimate = 1, variability = 1), main = 'theory', col = col)
pie(c(estimate = 1, variability = 0), main = 'reality', init.angle = 270, col = col)

yihui

library(shiny)

shinyServer(function(input, output) {
  
  # Make three independent, repeatable copies of rnorm so that the underlying
  # random values don't change
  rnorm1 = repeatable(rnorm)
  rnorm2 = repeatable(rnorm)
  rnorm3 = repeatable(rnorm)
  

yihui

makeStaticHTMLHelp <- function(libs = .libPaths()) { 
  make.packages.html(lib.loc = libs)
  
  links <- findHTMLlinks()
  
  for (lib in libs) {
    message('* Generating static HTML for packages in library ', lib) 
    for (pkg in rownames(installed.packages(lib))) {
      message('** package', pkg)
      pkgRdDB <- tools:::fetchRdDB(file.path(lib, pkg, 'help', pkg))