我想使用htmloutput
来渲染shiny 的应用程序中的文本.
如果我在 Select 输入中只 Select 了一个对象,则应用程序可以工作!
只要input$var
有一个以上的对象,结果就不像我预期的那样
require(shiny)
runApp(list(ui = pageWithSidebar(
headerPanel("Test"),
sidebarPanel(
selectInput("var",
label = "Choose a variable to display",
choices = c("Text01", "Text02",
"Text03", "Text04"),multiple = TRUE,
selected = "Text01"),
sliderInput("range",
label = "Range of interest:",
min = 0, max = 100, value = c(0, 100))
),
mainPanel(htmlOutput("text"))
),
server = function(input, output) {
output$text <- renderUI({
str1 <- paste("You have selected", input$var)
str2 <- paste("You have chosen a range that goes from",
input$range[1], "to", input$range[2])
HTML(paste(str1, str2, sep = '<br/>'))
})
}
)
)
如何修改代码以获得如下输出:
You have selected Text01,Text02
You have chosen a range that goes from 0 to 100.