与えられたスクリプトは、アクションボタンとスライダを光沢のある形で作成します。位置、左からの余白、高さ、幅のようなhtmlスクリプトで{{button}}に特定の属性を与えたい場合は、これを手伝ってください。HTMLを使用したR光沢のある出力の属性
<!-- template.html -->
<html>
<head>
{{ headContent() }}
</head>
<body>
<div>
{{ button }}
{{ slider }}
</div>
</body>
</html>
## ui.R ##
htmlTemplate("template.html",
button = actionButton("action", "Action"),
slider = sliderInput("x", "X", 1, 100, 50)
)
再現例えば、そのアクションボタンを注意が#actionセレクタしかしスライダー入力は容器従ってなどスライダの位置決めがコンテナレベルで行わなければならないし、IDを選択することによって行うことができないを使用して直接スタイルすることができます。私の知る限り、CSSセレクタはjqueryと同等の機能を持っていません：has（）
library(shiny)
shinyApp(
ui <- fluidPage(
fluidRow(actionButton("action", "Action"),sliderInput("x", "X", 1, 100, 50)),
tags$head(
tags$style('#action { margin:3px;border:2px solid green;padding 20px;}
.slider-custom-format { margin:3px;border:1px solid red;}
.slider-custom-format .irs-bar,.slider-custom-format .irs-bar-edge{background:red;}'),
tags$script('$(function(){
$(".form-group.shiny-input-container:has(#x)").addClass("slider-custom-format")
})')
)
),
server <- function(input, output) {})