如何在bslib::page_sidebar()闪亮的导航栏中插入搜索文本输入栏

Question

我想在导航栏顶部插入一个搜索栏，该怎么做？

library(shiny)   
library(bslib)

page_sidebar(
  tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
  ),
  title = "Weather",textInput("search","Search"),
  sidebar = sidebar("sidebar",
                    card(" ",actionButton("card_click", card_body("Cities",align = "center"))),
                    card(" ",actionButton("card_click-1", card_body("Maps",align = "center"))),
                    card(" ",actionButton("card_click-2", card_body("About Me",align = "center"))),
                    ),
  
  layout_columns(
    
    card("card1",
         card_body(card("card2",height = "200px"),card("card3",height = "200px"))
         
         ), col_widths = c(8,4),
    layout_columns(card("card4")))
  
)

我需要红色框所在的搜索栏。有什么办法可以做到吗？

Answer 1

您可以使用绝对定位。

块引用位置：绝对； 前10名％; 剩余：5%