R - Shiny - 使用HTML / CSS自定义headerPanel

Question

我不太了解CSS / HTML。我正在尝试修改headerPanel，以便徽标与页面的左侧对齐，然后标题和处理gif在headerPanel的右侧对齐，全部在一行中。任何帮助表示赞赏

shinyUI(fluidPage(theme = "bootstrap.css",

                  tags$head(
                         tags$style(HTML('
      .shiny-output-error-validation { font-family:courier; color:#B54B4B;

                                     }
    '))
    ),

    tags$head(tags$style(type ="text/css", "a{color:#4d3a7d;}","body {background-color: #fff; }")),

    headerPanel(
      list( tags$div( style = "font-family: 'Lobster', cursive; font-weight: 500; line-height: 1.1; color: #4d3a7d", tags$h1( 'MyAPP.Title')),

           tags$div(style="float:left", tags$img(src="Logo.png", height=75)),

           conditionalPanel(condition=" $('html').hasClass('shiny-busy')",

                            tags$div ( style="float:right; padding-right:30px; padding-top:10px;",
                                     tags$img(src="loading-gif-animation.gif",height=50,width=50)),
                            tags$div ( style="float:right; padding-right:30px; padding-top:10px; color:blue;
                                          background-color:white; font-family:arial; font-size:18 px",
                                     "Processing... Please wait...")
                            )
           )),

    sidebarPanel(