css - 我们可以将textInputAddon中的插件放置在R Shiny的右侧吗？

我试图在R Shiny的文本输入中添加一个图标。我使用textInputAddon添加图标，但是默认情况下它位于左侧。

textInputAddon("tia1",label = NULL,value = "99", addon = icon("percent"))

有什么办法可以将其放置在右侧吗？

提前致谢

最佳答案

一种方法是使用HTML，如下所示：

 library(shiny)
  library(shinyWidgets)

  ui <- fluidPage(

    # textInputAddon("tia1",label = NULL,value = "99", addon = icon("percent"))
    tags$head(HTML('<link href="shared/font-awesome/css/font-awesome.min.css" rel="stylesheet">')),
    HTML('<div class="form-group shiny-input-container">
      <div style="margin-bottom: 5px;" class="input-group">
         <input id="tia1" type="text" class="form-control shiny-bound-input" value="99">
         <span class="input-group-addon">
         <i class="fa fa-percent">

         </i>
         </span>
         </div>
         </div>')
  )

  server <- function(input, output){}


  shinyApp(ui = ui, server = server)

使用此代码，您将得到textInputAddon，如下所示：



希望能帮助到你！