How to enable emoji in Rmarkdown to show up after publishing in Shiny-Server

Question

I have the following Rmarkdown code, which uses Hadley's emo(ji) package.

---
title: "My First Shiny"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
---


```{r setup, include=FALSE}
```


Rows {data-height=800}
-----------------------------------------------------------------------

### Section1 `r strrep(emo::ji("heart_eyes_cat"), 5)`

Some text

In my Rstudio IDE it has no problem generating this:

As highligted in the image the emoji failed to show up in my local Shiny-server.

How can I enable it?

Have you looked at the generated HTML? What web browser are you using? Tried any others? Did it log any errors when rendering the page? — Spacedman, Jul 06 '17 at 08:26
@Spacedman I tried on FF, Safari, Chrome. No error in `/var/log/shiny-server.log`. Page source has hidden a lot of detailed. I cannot see any clue on the source. — pdubois, Jul 06 '17 at 08:29
It doesn't have a "path", its something your web browser can show you, via a menu or a developer tool bar button. — Spacedman, Jul 06 '17 at 08:33
Can you also give the code you run to create the shiny app? Or are you clicking buttons in RStudio? — Spacedman, Jul 06 '17 at 08:33
@Spacedman the code is in my OP. And in RStudio I just click on "Run Document" — pdubois, Jul 06 '17 at 08:34
@Spacedman Tried FF's Browser Console. Can't see any related error. — pdubois, Jul 06 '17 at 08:55
@Spacedman 1. Save the Rmd in the directory e.g. `myapp` and 2. link it to shiny server using this command `sudo ln -s /home/pdubois/myapp /srv/shiny-server/myapp` — pdubois, Jul 06 '17 at 09:42
@pdubois does this solve your issue - http://deanattali.com/2015/05/09/setup-rstudio-shiny-server-digital-ocean/#host-rmd ? — Charlie Joey Hadley, Jul 11 '17 at 12:13

score 8 · Answer 1 · edited Nov 15 '19 at 10:48

According to the github documentation, your files should read something like the following:

S3method(print,emoji)
export(ji)
export(ji_find)
export(ji_p)


ji_p <- function(x) {
   stopifnot(is.numeric(x))

   out <- stats::symnum(x,
     corr = FALSE,
     na = FALSE,
     cutpoints = c(0, 1e-5, 0.001, 0.01, 0.05, 0.1, 1),
     symbols = c(ji("laughing"), ji("joy"), ji("grin"), ji("smile"), ji("thinking"), ji("poop"))
   )

   structure(out, class = c("emoji", class(out)))

 }

I didn't see any shorthand indicated as you seem to have used (using the , 5) in your code and the r prefix seems now to have been removed; when used inline it is used but there is a need to use extra 'ticks' before and after it like so:

 `` `r emo::ji("smile")` ``

Are you using an older version of the commit? The need for knitr has been removed and it now requires only tibble. Check this latest commit doc out

I hope this is of assistance

How to enable emoji in Rmarkdown to show up after publishing in Shiny-Server

1 Answers1