更改selectInput和numericInput框的外观/形状

Question

我试图改变一些我的Shiny UI元素的外观，使它们更符合网站其他部分的美学。

具体来说，我正在寻找一种方法来移除selectInput框的圆角边缘，使其看起来像这样：

其次，我希望制作一个类似于以下内容的numericInput框：

有一种简单的方法吗？我在R中很舒服，但不知道大量的CSS或HTML。我考虑将带有numericInput元素的actionButton侧翼用作加/减键，但我们还没有想出如何使它们看起来像上面那样。

我是否可以使用任何样式属性或javascript库来实现这两个方面中的任何一个？

Answer 1

正如ash评论的那样，对于第一个问题，您可以通过将border-radius设置为0px来删除舍入：

shinyApp(
  ui=fluidPage(
    tags$head(
      tags$style(".selectize-input {border-radius:0px}"),
      tags$style(".selectize-input.dropdown-active {border-radius:0px}"),
      tags$style(".selectize-dropdown {border-radius:0px}")),
    selectInput("select", "Select", 1:3)),
  server=function(input, output){})