## ----eval = FALSE-------------------------------------------------------------
#  read.csv(text = "a,b\n1,2\n3,4")
#  #>   a b
#  #> 1 1 2
#  #> 2 3 4

## ----eval = FALSE-------------------------------------------------------------
#  tibble::tribble(
#    ~ a, ~ b,
#      1,   2,
#      3,   4
#  )
#  #> # A tibble: 2 x 2
#  #>       a     b
#  #>   <dbl> <dbl>
#  #> 1     1     2
#  #> 2     3     4

## ----eval = FALSE-------------------------------------------------------------
#  tibble::tribble(
#   ~weight, ~Time, ~Chick, ~Diet,
#        42,     0,    "1",   "1",
#        51,     2,    "1",   "1",
#        59,     4,    "1",   "1"
#  )

## ----eval = FALSE-------------------------------------------------------------
#  opar <- par(pch = 19)
#  <blah blah blah>
#  par(opar)

## ----eval = FALSE-------------------------------------------------------------
#  write(x, "foo.txt")
#  <blah blah blah>
#  file.remove("foo.txt")