閃亮反應與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) 
}) 

謝謝你，喬！