grid.Rmd

---
title: "Interactive table"
output:
  distill::distill_article

---


```{r setup, include=FALSE}
source("readdata.R", local = knitr::knit_global())
```


```{r echo=FALSE, layout="l-page"}

fgsc2 <- fgsc %>% 
  select(1:4, 7:9)

library(crosstalk)
bscols(



)
datatable(fgsc2, 
          #extensions = c('Buttons', 'ColReorder')
          escape = TRUE, rownames = FALSE,
         class = 'cell-border stripe',
                     options=list(deferRender=TRUE, 
                          scrollY=450, 
                          scroller=TRUE,
                      #    colReorder = TRUE,
  pageLength = 100,
    fontSize = 14,
  lengthMenu = c(100, 250, 500))) %>% 
formatStyle(c(1:19))
           


```