---
title: "Chinese README"
output:
  rmarkdown::html_vignette:
    self_contained: false
vignette: >
  %\VignetteIndexEntry{Chinese README}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, echo=FALSE, results='asis'}
# During `R CMD check`, vignette code is also run by sourcing a tangled `.R`
# script, where `knitr::current_input()` is not set.
path <- "README.zh.md"
if (!file.exists(path)) {
  path <- file.path("vignettes", "README.zh.md")
}
lines <- readLines(path, warn = FALSE)
lines <- lines[!grepl("R-CMD-check", lines)]
cat(lines, sep = "\n")
```