wwsd.Rmd

---
output: 
  html_document:
    output_dir: docs
    include:
      after_body: footer.html
knit: (function(inputFile, encoding) { 
      out_dir <- 'docs';
      rmarkdown::render(inputFile,
                        encoding=encoding, 
                        output_file=file.path(dirname(inputFile), out_dir, 'index.html')) })
editor_options: 
  chunk_output_type: console
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo=FALSE, message=FALSE, warning = FALSE)
library(tidyverse)
```

###  The World Writing System Database {.tabset .tabset-fade .tabset-pills}
Some characters may be displayed incorrectly.

#### about database
This database contains corespondences between graphemes and phonology. The main goal for this database is to investigate homography and homophony variability and find some correlations between that and some other linguistic and sociolinguistics variables.

#### search
```{r}
make_link_omniglot <- function(x, link){
  paste("<a href='",
        as.character(link),
        "' target='_blank'>",
        as.character(x),
        "</a>", sep = "")}

wwsb <- read_csv("database.csv", na = "")
wwsb %>% 
  mutate(script = make_link_omniglot(script, omniglot),
         unicode  = stringi::stri_trans_general(grapheme,
                                            "[\\u0000-\\u25FF] any-hex")) %>% 
  select(script, grapheme, unicode, IPA, comment, source) ->
  wwsb
library(DT)
datatable(wwsb, filter = 'top', rownames = FALSE, options = list(dom = 'tip'), escape = FALSE)
```

#### bibliography
```{r}
bibliography <- read_tsv("bibliography.tsv")
bibliography$script <- make_link_omniglot(bibliography$script, bibliography$omniglot)
bibliography <- bibliography[, -4]

library(DT)
datatable(bibliography, filter = 'top', rownames = FALSE, options = list(autoWidth = FALSE), escape = FALSE)
```

#### cite

Cite this work as the following:

G. Moroz (2020) The World Writing System Database v. 0.0.2. Moscow: Linguistic Convergence Laboratory. Retrieved from https://agricolamz.github.io/wwsd/