How to display Chinese characters in RMD and Shiny?



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<- "你"




contains image of output


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