光沢のあるアプリケーションでのRMarkdown

Question

問題

光沢のあるアプリケーションにRMarkdownスクリプトを挿入（および評価）する方法はありますか？ （注、私はhereを説明しRMarkdownで光沢のあるアプリケーションを捜しているわけではない、また私は光沢のあるに値下げスクリプトのために（see Shiny Gallery Markdown）探しています）

を私は、テキスト、方程式、コードチャンクを持つアプリケーションを構築していますプロット、およびインタラクティブな要素です。便宜上、私はMarkdownファイルをテキストと方程式に使用し、その間にプロットを作成したい（つまり、RMarkdownでほとんどのものを書きます）。 shiny-appはより複雑なので（私はshinydashboardに独自の機能を多数使用しています）、first linkに記載されている方法を使用しないオプションを選択します。

最小作業の例では、次のようになります。

R-ファイル：

library(shiny) 

ui <- shinyUI(
    fluidPage(
    includeMarkdown("RMarkdownFile.rmd") 
) 
) 
server <- function(input, output) {} 

shinyApp(ui, server) 

と同じフォルダ内に "RMarkdownFile.rmd"：

This is a text 

$$ E(x) = 0 $$ 

```{r, eval = T} 
plot(rnorm(100)) 
``` 

結果：

ターゲット

私は何を持っていると思いますが、私はrmd -fileニット場合は出力されます。具体的に

を、私は、コードのチャンク（プロット何かを...）の評価を取得したいです私はレンダリングされた数式を取得したい。

アイデア？

編集ソリューション

@Bunkの入力のおかげで、私はコマンドknitでmdファイルにすべてのrmdファイルをレンダリングすることを選択した後、（私はとHTMLの代わりにマークダウンを使用し、光沢のあるアプリでmdファイルを含めます後者は方程式にいくつかの問題を生じた）。最後に、includeMarkdownはwithMathJaxにラップされ、方程式が正しく表示されます。

最終的なコードは次のようになります。

library(shiny) 
library(knitr) 

rmdfiles <- c("RMarkdownFile.rmd") 
sapply(rmdfiles, knit, quiet = T) 

ui <- shinyUI(
    fluidPage(
     withMathJax(includeMarkdown("RMarkdownFile.md")) 
) 
) 
server <- function(input, output) { } 

shinyApp(ui, server) 

Answer 1

私はそれを編みとUIが動作するはずレンダリングだと思います。

library(shiny) 
library(knitr) 

ui <- shinyUI(
    fluidPage(
     uiOutput('markdown') 
) 
) 
server <- function(input, output) { 
    output$markdown <- renderUI({ 
     HTML(markdown::markdownToHTML(knit('RMarkdownFile.rmd', quiet = TRUE))) 
    }) 
} 

shinyApp(ui, server)