---
title: "sinx: R 语言社区中文火花集"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{sinx}
  %\VignetteEngine{knitr::rmarkdown}
  \usepackage[utf8]{inputenc}
---

```{r, echo=FALSE, results='hide'}
os <- Sys.info()['sysname']
if(os == 'Windows') {
  old_loc <- Sys.getlocale("LC_CTYPE")
  Sys.setlocale("LC_CTYPE","Chinese")
}
library("sinx")
library("utils")
f <- sinx:::merge_text(method = 'vig')
```

```{r, results='asis', echo=FALSE}
cat(f$vig, sep = '\n\n\n\n')
```


```{r, echo=FALSE, results='hide'}
if(os == 'Windows') {
  Sys.setlocale("LC_CTYPE",old_loc)
}
```

