一つの方法を、以下に示すよう:
はそれを願っています:
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
を取得し、このコードを使用します助けて!
素晴らしい!ありがとう。 – Usha
IDを動的に命名するのにも助けてくれますか? – Usha
'renderUI'のHTMLコードを使うのに' uiOutput'と 'renderUI'を使い、IDを動的に与えることができます。 – SBista