---
title: "Baza COVID-19"
output: 
  flexdashboard::flex_dashboard:
    orientation: row
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(scales)
library(dimensionsR)
library(bibliometrix)
library(pubmedR)
library(pubmed.mineR)
library(readxl)
library(RISmed)
library(dplyr)
require(quanteda)
require(quanteda.textstats)
require(quanteda.textplots)
require(quanteda.corpora)
require(ggplot2)
library(knitr)
library(kableExtra)
library(tidyr)
library(DT)
library(mgcv)



slownik_mz <- read_excel("refundacja.xlsx")




```


```{r}
slownik_mz  %>%
    datatable(editable = T, extensions = 'Buttons', filter = 'top',
              options = list(dom = 'Blfrtip',
                             buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                             lengthMenu = list(c(10,25,50,-1),
                                               c(10,25,50,"All"))))
```