
R version 4.3.2 (2023-10-31) -- "Eye Holes"
Copyright (C) 2023 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> if (!suppressPackageStartupMessages(requireNamespace("knitr", quietly=TRUE))) {
+   cat(readLines("knitr.Rout.mock", warn=FALSE), sep="\n")
+   q('no')
+ }
> 
> library(knitr)
> invisible(knit("knitr.Rmd", quiet=TRUE))
> cat(readLines("knitr.md"), sep="\n")

```r
require(data.table)              # print?
DT = data.table(x=1:3, y=4:6)    # no
DT                               # yes
```

```
##        x     y
##    <int> <int>
## 1:     1     4
## 2:     2     5
## 3:     3     6
```

```r
DT[, z := 7:9]                   # no
print(DT[, z := 10:12])          # yes
```

```
##        x     y     z
##    <int> <int> <int>
## 1:     1     4    10
## 2:     2     5    11
## 3:     3     6    12
```

```r
if (1 < 2) DT[, a := 1L]         # no
DT                               # yes
```

```
##        x     y     z     a
##    <int> <int> <int> <int>
## 1:     1     4    10     1
## 2:     2     5    11     1
## 3:     3     6    12     1
```
Some text.

> invisible(file.remove("knitr.md"))
> 
> proc.time()
   user  system elapsed 
  0.247   0.044   0.283 
