index-des-fonctions.Rmd

---
title: "Index des fonctions"
---

```{r options, results='hide', echo=FALSE, message=FALSE, warning=FALSE}

fichiers = list.files(pattern = ".Rmd")
fichiers <- fichiers[fichiers != 'index_fonctions.Rmd']
fichiers <- fichiers[fichiers != 'index_extensions.Rmd']
fichiers <- fichiers[fichiers != 'index_concepts.Rmd']

lf <- data.frame()

require(stringr)

for (f in fichiers) {
  content <- readLines(f, encoding = "UTF-8")
  content <- paste(content, collapse = " ")
  chapitre <- str_match(content, 'title: "([^"]+)"')
  chapitre <- chapitre[,2]
  m <- str_match_all(content, '`([a-zA-Z0-9._%]+)`[{]data-pkg="([a-zA-Z0-9._]+)"( data-rdoc=")?([a-zA-Z0-9._]*)')
  m <- m[[1]]
  if (nrow(m)>0)
    lf <- rbind (lf, data.frame(
      fonction = m[,2], 
      package = m[,3], 
      rdocumentation = m[,5], 
      chapitre = chapitre,
      page = str_replace(f, ".Rmd", ".html")
      ))
}

lf$fonction <- as.character(lf$fonction)
lf$package <- as.character(lf$package)
lf$rdocumentation <- as.character(lf$rdocumentation)
lf$chapitre <- as.character(lf$chapitre)
lf$page <- as.character(lf$page)
lf$initiale <- toupper(str_sub(lf$fonction, 1, 1))

lf <- lf[order(lf$initiale, lf$fonction, lf$package, lf$chapitre), ]
lf <- lf[!duplicated(lf), ]

res <- ""
i <- ""
p <- ""
f <- ""

for (j in 1:nrow(lf)) {
  if (lf[j, "initiale"] != i) 
    res <- paste0(res, '\n<h2 id="', lf[j, "initiale"], '">', lf[j, "initiale"], "</h2>\n\n")
  i <- lf[j, "initiale"]
  
  if (lf[j, "fonction"] != f | lf[j, "package"] != p) {
    if (nchar(lf[j, "rdocumentation"]) == 0)
      res <- paste0(res, 
        "\n`", lf[j, "fonction"], "`{data-pkg=\"", 
        lf[j, "package"],"\"} (", lf[j, "package"], ")\n\n"
      )
    else
      res <- paste0(res, 
        "\n`", lf[j, "fonction"], "`{data-pkg=\"", 
        lf[j, "package"],"\" data-rdoc=\"", lf[j, "rdocumentation"],
        "\"} (", lf[j, "package"], ")\n\n"
      )
  }
    
  f <- lf[j, "fonction"]
  p <- lf[j, "package"]
  
  res <- paste0(res, "* [", lf[j, "chapitre"], "](", lf[j, "page"], ")\n")
  
}

```

<nav class="index">
  <ul class="pagination pagination-sm">
```{r, results='asis', echo=FALSE}
toc <- ""
for (i in unique(lf$initiale)) {
  toc <- paste0(toc, '\n<li><a href="#', i, '">', i, '</a></li>') 
}
cat(toc)
```
  </ul>
</nav>

<div id="index_fonctions" class="liste_index">
```{r, results='asis', echo=FALSE}
cat(res)
```
</div>