datatableをlapplyで作成してcombining

multi_widgets_combing.Rmd

---
title: "Untitled"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
library(DT)
library(dplyr)
library(manipulateWidget)

wf <- function(x) {
  datatable(
    x, extensions = 'FixedColumns',
    options = list(
      dom = 't',
      deferRender = TRUE,
      scrollX = TRUE,
      scrollY = 200,
      scrollCollapse = TRUE
    )
  )
}

wl <- lapply(split(iris, iris[,5]), wf)

combineWidgets(
  ncol = 2, colsize = c(2, 1),
  wl[[1]],
  combineWidgets(
    ncol = 1,
    wl[[2]],
    wl[[3]]
  )
)
```