Code Editor for app.R

library(shiny)
library(bslib)

# Save the logo image reference
logo <- tags$img(src = "logo.png", height = "30px", style = "margin-right: 10px;")

ui <- page_navbar(
  title = tags$span(
    logo,
    "Observatoire"
  ),
  theme = bs_theme(
    bg = "#FFFFFF",
    fg = "#000000",
    primary = "#2E7D32",  # Dark green for navbar
    "navbar-bg" = "#2E7D32"
  ),
  nav_panel("Overview", 
    p("Overview content goes here")
  ),
  nav_panel("Analytics",
    p("Analytics content goes here")
  ),
  nav_panel("Reports",
    p("Reports content goes here")
  )
)

server <- function(input, output) {
  # Server logic will go here
}

shinyApp(ui, server)