r - 如何更改特定 Shiny 小部件的样式

Question

我想在我的 Shiny app 中为来自 dqshiny 包的 Shiny 输入设置样式，如下所示 -

library(shiny)
library(dqshiny)
opts <- sapply(1:100000, function(i) paste0(sample(letters, 9), collapse=""))
shinyApp(
  ui = fluidPage(
    autocomplete_input("auto1", "Unnamed:", opts, max_options = 1000)
  ),
  server = function(input, output, session) {

  }
)

我想实现两件事-

1. 想要将建议字段中的突出显示颜色从黄色更改为绿色
2. 还想更改输入字段和建议容器之间的距离，比如10px。

我的应用程序中还有一些其他小部件，因此上述修改后的样式不应影响其他小部件。

有什么办法可以实现吗？

任何指针将不胜感激。

Answer 1

最简单的方法就是将 CSS 直接添加到标题中。有一篇关于 Shiny 应用程序样式的非常有用的文章 here .

library(shiny)
library(dqshiny)
opts <- sapply(1:100000, function(i) paste0(sample(letters, 9), collapse=""))
shinyApp(
    ui = fluidPage(
        tags$head(
            tags$style(
                HTML(
                '
                .autocomplete-items div:hover {
                    background-color: green;
                }
                #auto1autocomplete-list {
                    margin-top: 10px;
                }
                '
                )
            )
        ),
        autocomplete_input("auto1", "Unnamed:", opts, max_options = 1000)
    ),
  server = function(input, output, session) {
  }
)