---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(rhandsontable)
```

Column {data-width=400}
-------------------------------------
    
### Table 1
    
```{r}
MAT = matrix(rnorm(10000 * 100), nrow = 100, dimnames= list(1:100, 1:10000))

rhandsontable(MAT, width = "100%", height = "100%")
```
   
Column {data-width=600}
-------------------------------------
   
### Table 2

```{r}
MAT = matrix(rnorm(10 * 10), nrow = 10, dimnames= list(1:10, 1:10))

rhandsontable(MAT)
```   
 
### Table 3
    
```{r}
MAT = matrix(rnorm(10 * 10), nrow = 10, dimnames= list(1:10, 1:10))

rhandsontable(MAT)
```

