如何在闪亮的文字行右边放置一个大图像？

Question

如何将我的葡萄酒瓶放在右列的顶部，葡萄和购买日期在它的左侧？

现在第二行仅显示在右侧大图的底部。

    shinyServer(function(input, output, session) {

      print (getwd())
      output$image <- renderUI({tags$img(src = "https://gettysburgconnection.org/images/IMG_20190302_185703.jpg
    ", width = 200)})

    })

shinyUI(navbarPage("Test",
                   fixedRow(
  column(12,
         "Level 1 column",
         fixedRow(
           column(2, selectInput("color", "Color",wine$Color,selected = "None")),
           column(2,textInput("wine", "Wine:", value = "All")),
           column(2,textInput("country", "Country:", value = "All")),
           column(2,textInput("maker", "Maker:",value = "All")),
           column(1,selectInput("year", "Year:", seq(from = 2000, to =2020), selected = "None")),
           column(3, htmlOutput("image",inline = T, container = div))

         ),
         fixedRow(
           column(3, selectInput("grape", "Grape", wine$Grapes,selected = "None")),
           column(3,textInput("row_number", "#", value = "None")),
           column(3,textInput("date", "Purchase Date:", value = "None"))


         )
  )
)
))