How to display Chinese characters in RMD and Shiny?

shiny

#1

I would like to use RMarkdown and Shiny with Chinese characters. Any ideas why the below won’t work?

--
title: "Untitled"
author: "test"
date: "26 January 2018"
output: html_document
runtime: shiny
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
Sys.setlocale(category = "LC_ALL", locale = "chs")
a<- "你"

```

```{r}
print(a)
```

Capture

contains image of output


#2

This is cross-posted on Stack Overflow and there appears to be an acceptable answer but not marked as solved. Nonetheless, it's at: