title: Encoding in Shiny
body: <p>I'm working with RStudio Version 0.98.507. Short Info about initial working instruments:</p>
  
  <pre><code>R version 3.1.0 (2014-04-10)
  Platform: x86_64-w64-mingw32/x64 (64-bit)
  
  locale:
  [1] LC_COLLATE=German_Germany.1252  LC_CTYPE=German_Germany.1252   
  [3] LC_MONETARY=German_Germany.1252 LC_NUMERIC=C                   
  [5] LC_TIME=German_Germany.1252    
  
  other attached packages:
  [1] shinyapps_0.3.53 RJSONIO_1.2-0.2  shiny_0.9.1.9013
  
  loaded via a namespace (and not attached):
   [1] bitops_1.0-6    Cairo_1.5-5     caTools_1.17    digest_0.6.4   
   [5] htmltools_0.2.4 httpuv_1.3.0    Rcpp_0.11.1     RCurl_1.95-4.1 
   [9] shinysky_0.1.2  tools_3.1.0     xtable_1.7-3   
  </code></pre>
  
  <p>I have a problem by deploying my shiny app on the shiny server. The problem was at some point solved, but after it appears again. Now I cannot fix it any more. My problem are the german letters in <strong>helpers.R</strong>. Unfortunately, I cannot avoid using them. I'm sourcing my help scrpits <strong>helpers.R</strong> into <strong>server.R</strong> like it is shown and taught in Shiny Tutorial.
  All my R-scripts are carefully saved under UTF-8 format. I cannot use the command</p>
  
  <pre><code>options(encoding="UTF-8")
  </code></pre>
  
  <p>because after executing it, the command deployApp("app") doesn't work. I set location using</p>
  
  <pre><code>Sys.setlocale(category = "LC_ALL", locale = "German")
  </code></pre>
  
  <p>It also doesn't work.
  I cannot understand, why the letters in <em>mainPanel</em> and <em>sidebarLayout</em> are readable, but those from <strong>helpers.R</strong> not. Can someone help me to solve this paradox?</p>
  
  <p><strong>EXAMPLE</strong></p>
  
  <p><strong>ui.R</strong></p>
  
  <pre><code>library(shiny)
  
  shinyUI(fluidPage(withMathJax(),
                    titlePanel("Währung"),
  
                    sidebarLayout(position="right",
                                  sidebarPanel(
                                          h5("Bedienfenster"),
                                          sliderInput('x', 'x axis',
                                                      value=50, min=3, max=150, step=1,)
                                  ),
  
                                  mainPanel(
                                          plotOutput("Plot")
                                  )
                    )
  ))  
  </code></pre>
  
  <p><strong>server.R</strong></p>
  
  <pre><code>shinyServer(function(input, output){
          output$Plot &lt;- renderPlot({
                 x &lt;- rnorm(input$x)
                 hist(x, main="", xlab="", ylab="")
                 title(main="Schätzgerade", xlab="Währung", ylab="Dichte")
          })
  })
  </code></pre>
  
  <p>After deploying I get following <a href="https://stepanyan.shinyapps.io/Umlaut/" rel="noreferrer">app</a>.</p>