r - Shiny 的标题面板 : how to put title and image at same height?

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"))
  )
),