R闪亮:在函数中使用HTML (如textInput、checkboxGroupInput)
R闪亮:在函数中使用HTML (如textInput、checkboxGroupInput)
提问于 2015-10-06 09:53:15
我试图在一个闪亮的textInput()函数中包含HTML。更具体而言，我希望在小部件中显示的文本旁边包含一个图像。以下是用ui.R编写的
shinyUI(navbarPage("Page Title",theme = shinytheme("united"),
tabPanel("Panel title",
sidebarLayout(
sidebarPanel(
textInput("textInputObject", c("Input Header", tags$span(HTML("<img src='http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png', title='help', alt='' />"))), value = "put text here"),
checkboxGroupInput("checkbInp", "Checkbox Header",
c("Checkbox1 [?]" = "check1" ,
"Checkbox2 [?]" = "check2" ,
"Checkbox3 [?]" = "check3") ,
selected = c("check1"))
)
)这给了我：
有两个问题：
- 我能够将图像包含在
textInput的标题中。但是，它应该只显示“输入标题”，然后显示图像。正如您在图片中看到的，也显示了来自tags$span的"span“。我怎么才能解决这个问题？ - 我不知道如何将图像包含在
checkboxGroupInput中。它应该替换"“(见图)。
谢谢!
回答 2
Stack Overflow用户
回答已采纳
发布于 2015-10-06 13:14:18
对于#1，您可以在HTML调用之前使用list轻松地修复这个问题。对于#2，要复杂一些，因为您可能需要自己编写整个checkbox。也许你能像我一样分别申报，这样行吗？
rm(list = ls())
library(shiny)
library(shinythemes)
ui <- navbarPage("Page Title",theme = shinytheme("united"),
tabPanel("Panel title",
sidebarLayout(
sidebarPanel(
textInput("textInputObject",
c("Input Header",list(HTML("<img src='http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png'/>"))), value = "put text here"),
checkboxInput("checkbInp",c("Checkbox1",list(HTML("<img src='http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png'/>"))), value = T),
checkboxInput("checkbInp2",c("Checkbox2",list(HTML("<img src='http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png'/>")))),
checkboxInput("checkbInp3",c("Checkbox3",list(HTML("<img src='http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png'/>"))))
),
mainPanel())
)
)
server <- function(input, output) {}
shinyApp(ui, server)
Stack Overflow用户
发布于 2015-10-06 10:19:22
如果不需要span标记，只需尝试如下：
textInput("textInputObject", c("Input Header", tags$img(src = "http://www2.psd100.com/ppp/2013/10/0401/Blue-question-mark-icon-1004195336.png", title = "help", alt = ""), value = "put text here")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/32966937
复制相关文章
相似问题
腾讯云开发者
