css - 如何在顶部放置 Shiny 的内联单选按钮文本

Question

我想创建一个评级网站，就像这样: https://codepen.io/migli/pen/xGRwje

但我想在中间。

div(radioButtons("nav1", "", choiceValues=1:10, 
choiceNames=as.character(1:10), selected=0, inline = T), align='center'),

这是我想要的，但是我的css不好。

Answer 1

library(shiny)

css <- "
.radio-inline {
  padding: 0 10px;
  text-align: center;
  margin-left: 0 !important;
}
.radio-inline input {
  top: 20px;
  left: 50%;
  margin-left: -6px !important;
}"

ui <- basicPage(
  tags$head(
    tags$style(HTML(css))
  ),
  radioButtons("nav1", "", choiceValues = 1:10, 
               choiceNames = as.character(1:10), selected = 0, inline = TRUE)
)

server <- function(input, output) {}

shinyApp(ui, server)