This output is using SNOMED CT in research mode within a member country. By viewing this site, you certify you reside in member country

## # A tibble: 36 x 2
##                            tag     n
##                          <chr> <int>
##  1       administration method    10
##  2            assessment scale    13
##  3                   attribute    16
##  4             basic dose form    25
##  5              body structure   548
##  6                        cell     1
##  7              cell structure     3
##  8       core metadata concept     2
##  9                    disorder  1917
## 10                 disposition   253
## 11                   dose form   213
## 12                ethnic group     1
## 13                       event    13
## 14                     finding   394
## 15 foundation metadata concept     8
## 16               intended site    21
## 17           medicinal product    10
## 18      medicinal product form     5
## 19     morphologic abnormality    26
## 20           namespace concept     3
## 21           observable entity    52
## 22                  occupation     2
## 23                    organism   256
## 24        OWL metadata concept     1
## 25                      person    10
## 26             physical object   171
## 27                   procedure  1013
## 28             qualifier value    75
## 29             record artifact   115
## 30              regime/therapy    29
## 31      release characteristic     7
## 32                   situation    93
## 33                    specimen    37
## 34             state of matter     5
## 35                   substance   495
## 36              transformation     4

table

DT::datatable(aa,escape=FALSE,filter = 'top',
              options = list(
                pageLength = 10000,
                lengthMenu = c(5, 10, 15, 20,500,10000)
              )
)
## Warning in instance$preRenderHook(instance): It seems your data is too
## big for client-side DataTables. You may consider server-side processing:
## http://rstudio.github.io/DT/server.html
# output$tabelka <- DT::renderDataTable({
#   
#   datatable(iris, filter="top", selection="multiple", escape=FALSE)
#   
# })
# 
# })