```{r test, results='asis'}
    for (row in 1:2) {
      cat(paste("nn#### test: ", row , "##n"))
      print( htmltools::tagList(datatable(iris)) )
    }
    ```

```{r test, results='asis'}
    for (row in 1:2) {
      cat(paste("nn#### test: ", row , "##n"))
      print( htmltools::tagList(datatable(iris)) )
    }
    ```
    datatable(iris)