闪亮的标题面板：如何将标题和图像放置在同一高度？

Question

我在标题面板中既要有标题又要有图像，但标题要在左侧，图像要在右侧。我使用以下代码在面板中将它们都包含了：

ui <- fluidPage(
   titlePanel(div("Fenologische modellen", 
                   img(height = 105, width = 300, src = "logo_pcfruit.jpg"))
   ),

但是他们彼此紧挨着。因为align对图像不起作用（或者也尝试“ style = ...”），所以我决定将它们放在不同的列中，这首先需要fluidRow。

ui <- fluidPage(
  titlePanel( 
    fluidRow( 
      column(4, "Fenologische modellen"),
      column(4, offset = 8, img(height = 105, width = 300, src = "logo_pcfruit.jpg"))
    )
  ),

发生的情况是图像确实位于右侧，但它位于右下角，而我需要使其与标题位于同一行。

我尝试调整以像素为单位的列的高度，但是在一定高度下，它不再改变了。上图显示了限制。

有什么建议么？

PS：除非我可以将其完全白色并因此看不见，否则我不希望将它们都放在一个面板中。

Answer 1

因此，当我尝试在wellPanel中解决相同的问题时，我自己弄清楚了。坏人是offset 争论的焦点column()。如果删除它，则图像和标题会水平对齐。

要将图像放在右边，我只需要使左列非常宽：

titlePanel(
  fluidRow(
    column(9, "Fenologische modellen"), 
    column(3, img(height = 105, width = 300, src = "logo_pcfruit.jpg"))
  )
),