我们可以将插件放在textInputAddon中R的右边吗？

Question

我试图在R闪亮的文本输入中有一个图标。我使用textInputAddon添加图标，但默认情况下它放在左侧。

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

有没有办法将它放在右侧？

提前致谢

Answer 1

一种方法是使用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，如下所示：

希望它有所帮助！