docs: Add navbar_options examples

Author: gadenbuie

shiny/api-examples/navbar_options/app-core.py

@@ -0,0 +1,36 @@
+from shiny import App, render, ui
+
+app_ui = ui.page_fluid(
+    ui.navset_bar(
+        ui.nav_panel("A", "Panel A content"),
+        ui.nav_panel("B", "Panel B content"),
+        ui.nav_panel("C", "Panel C content"),
+        ui.nav_menu(
+            "Other links",
+            ui.nav_panel("D", "Panel D content"),
+            "----",
+            "Description:",
+            ui.nav_control(
+                ui.a("Shiny", href="https://shiny.posit.co", target="_blank")
+            ),
+        ),
+        id="selected_navset_bar",
+        title="Navset Bar",
+        navbar_options=ui.navbar_options(
+            bg="#B73A85",
+            theme="dark",
+            underline=False,
+        ),
+    ),
+    ui.h5("Selected:"),
+    ui.output_code("selected"),
+)
+
+
+def server(input, output, session):
+    @render.code
+    def selected():
+        return input.selected_navset_bar()
+
+
+app = App(app_ui, server)

shiny/api-examples/navbar_options/app-express.py

@@ -0,0 +1,34 @@
+from shiny.express import input, render, ui
+
+with ui.navset_bar(
+    title="Navset Bar",
+    id="selected_navset_bar",
+    navbar_options=ui.navbar_options(
+        bg="#B73A85",
+        theme="dark",
+        underline=False,
+    ),
+):
+    with ui.nav_panel("A"):
+        "Panel A content"
+
+    with ui.nav_panel("B"):
+        "Panel B content"
+
+    with ui.nav_panel("C"):
+        "Panel C content"
+
+    with ui.nav_menu("Other links"):
+        with ui.nav_panel("D"):
+            "Page D content"
+
+        "----"
+        "Description:"
+        with ui.nav_control():
+            ui.a("Shiny", href="https://shiny.posit.co", target="_blank")
+ui.h5("Selected:")
+
+
+@render.code
+def _():
+    return input.selected_navset_bar()

shiny/ui/_navs.py

@@ -1068,6 +1068,7 @@ def __repr__(self):
         return f"navbar_options({', '.join(fields)})"
 
 
+@add_example()
 def navbar_options(
     position: MaybeMissing[NavbarOptionsPositionT] = MISSING,
     bg: MaybeMissing[str | None] = MISSING,