闪亮反应与IncludeMarkdown？

Question

试图采取这些想法更进一步：

• HTML/Text/Markdown in Shiny
• Render Images

我想包括在输入一个mainPanel条件的反应性降价文件（*.Md）到selectInput。我该怎么做？

我试过在renderText,renderPrint和使用eval内includeMarkdown变化。目前似乎没有任何工作。

EG。

### ui.R 

shinyUI(fluidPage( 
    sidebarLayout(
    sidebarPanel(
     selectInput("var1", 
        label= "Please Select option", 
        choices= c("option1", "option2", "option3"), 
        selected= "option1" 
    ), 

    mainPanel(
     h3("guide:") 
     includeMarkdown("md_file") 
    ) 
) 
)) 

### server.R 
shinyServer(function(input, output) { 

    output$md_file <- 
    if (input$var1 == "option1") { 
     renderPrint({"option1.Md"}) 
    } else if (input$var1 == "option2") { 
     renderPrint({"option2.Md"}) 
    } (input$var1 == "option3") { 
     renderPrint({"option3.Md"}) 
    } 
    }) 
}) 


R> shiny::runApp('C:/Shiny_demo') 

在readlines方法上侦听http://127.0.0.1:6421
警告（CON）：
无法打开文件 'md_file'：没有这样的文件或目录
错误readlines方法（CON）：无法打开连接

Answer 1

根据与Shiny Google小组中Joe Cheng的讨论，答案是：

在UI：

uiOutput("md_file") 

在您的服务器：

output$md_file <- renderUI({ 
    file <- switch(input$var1, 
    option1 = "option1.Md", 
    option2 = "option2.Md", 
    option2 = "option3.Md", 
    stop("Unknown option") 
) 
    includeMarkdown(file) 
}) 

谢谢你，乔！