Question

我想在tabPanel中添加包含一些公式的文本。 ui看起来像这样：

library(markdown)
library(shiny) 

shinyUI(fluidPage(
  titlePanel("Test"),
      sidebarLayout(
        sidebarPanel(
          ),

    mainPanel(
      tabsetPanel(
        tabPanel('Text', includeMarkdown("post.rmd"))
        )

      )
    )
  )
)

markdown文件如下所示：

This  is a text test.

### Equations
There are inline equations such as $y_i = \alpha + \beta x_i + e_i$.

And displayed formulas:

$$\frac{1}{1+\exp(-x)}$$

当我运行时，我没有得到所需的公式，但像上面发短信一样。我已按照说明进行操作 here

并将格式更改为.md但它无法正常工作。我做错了什么？

Answer 1

在链接讨论中，有关于渲染rmarkdown文件的评论。 R shiny不会自动将markdown文件渲染为html，因此您必须添加：rmarkdown::render("post.Rmd")。您也可以预先将您的降价文件编译为html，并在这种情况下使用includeHtml只使用代码：includeHTML(("post.html"))

library(markdown)
library(shiny) 
server <- function(input, output) {

}

ui <- shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(

    ),
    mainPanel(
          tabsetPanel(
        tabPanel('Text', includeMarkdown(rmarkdown::render("post.rmd")))
        )

    )
  )
))

shinyApp(ui = ui, server = server)

在Shiny中添加配方到Markdown的问题

1 个答案: