align text and image on login page

[sm2607]

Hi, I want to align text on left and image on right in same line at top of login page. (in example below, "Demo" should be on left and logo in right side at top of login page). But not able to achieve this.

ui <- fluidPage(

auth_ui(
id = "auth",
tags_top =
tags$div(
tags$h4("Demo", style = "align:left"),
tags$img(
src = "https://www.r-project.org/logo/Rlogo.png", width = 100
)
))