R Under development (unstable) (2024-10-08 r87214 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

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.28    0.03    0.29