在 Shiny R 中，如何在徽标前面而不是在其下方显示标题
How can I show the title in front of logo not under it in Shiny R
所以下面的代码把标题写在logo下面，而我希望它在logo前面。在 RStudio 的 titlePanel 帮助中，没有关于定位标题的帮助。有什么破解方法吗？
shinyUI(fluidPage(
list(tags$head(HTML('<img src="http://ic.pics.livejournal.com/oddharmonic/554743/66688/66688_600.gif" border="0" style="border:2px width="10" height="10" alt="Photo of Milford Sound in New Zealand!" />'))),
div(style="padding: 0px 0px",
titlePanel(
title="University of Wisconsin-Madison Database Group", windowTitle="FML"
)
),
这是现在的样子：
这是我能想到的。您可以将 <img /> 标签包裹在 <h1>...</h1> 中，如下所示：
server <- function(input,output,session){
}
ui <- shinyUI(fluidPage(
list(tags$head(HTML('<h1> <img src="http://ic.pics.livejournal.com/oddharmonic/554743/66688/66688_600.gif" border="0" style="border:2px width="10" height="10" alt="Photo of Milford Sound in New Zealand!"/> University of Wisconsin-Madison Database Group</h1>')))
))
shinyApp(ui = ui, server = server)
所以下面的代码把标题写在logo下面，而我希望它在logo前面。在 RStudio 的 titlePanel 帮助中，没有关于定位标题的帮助。有什么破解方法吗？
shinyUI(fluidPage(
list(tags$head(HTML('<img src="http://ic.pics.livejournal.com/oddharmonic/554743/66688/66688_600.gif" border="0" style="border:2px width="10" height="10" alt="Photo of Milford Sound in New Zealand!" />'))),
div(style="padding: 0px 0px",
titlePanel(
title="University of Wisconsin-Madison Database Group", windowTitle="FML"
)
),
这是现在的样子：
这是我能想到的。您可以将 <img /> 标签包裹在 <h1>...</h1> 中，如下所示：
server <- function(input,output,session){
}
ui <- shinyUI(fluidPage(
list(tags$head(HTML('<h1> <img src="http://ic.pics.livejournal.com/oddharmonic/554743/66688/66688_600.gif" border="0" style="border:2px width="10" height="10" alt="Photo of Milford Sound in New Zealand!"/> University of Wisconsin-Madison Database Group</h1>')))
))
shinyApp(ui = ui, server = server)