Атрибуты R блестящих выводов с использованием HTML

Данный скрипт создает кнопку действия и ползунок r блестящий. Если я хочу передать определенные атрибуты {{ button }} в html-скрипте, такие как позиция, поле слева, высота и ширина, помогите мне с этим.

<!-- 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)
)
Источник

1 ответ

Воспроизводимый пример, обратите внимание, что кнопка действия может быть стилизована непосредственно с помощью селектора #action, однако у ползункового ввода есть контейнер, поэтому позиционирование ползунка как такового должно выполняться на уровне контейнера и не может быть выполнено с помощью выбора идентификатора. Насколько я знаю, селектор CSS не имеет эквивалента JQuery: имеет ()

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) {})
Источник
Другие вопросы по тегам