Shiny에서 CSS

9151 단어 RCSSShiny
오랜만의 CSS. F12가 중요하다는 것이다.
.after .shiny-input-container {
  margin-top: -10px;
  margin-bottom: -10px;
}

위의 styles.css를 www에 배치하고 다음을 실행.
library(shiny)

ui <- fluidPage(
  tags$head(tags$link(rel="stylesheet", type="text/css", href="styles.css")),

  h1("before"),
  div(
    class="before",
    checkboxInput(inputId="x1", label="x1"),
    checkboxInput(inputId="x2", label="x2"),
    checkboxInput(inputId="x3", label="x3"),
    checkboxInput(inputId="x4", label="x4"),
    checkboxInput(inputId="x5", label="x5")
  ),

  h1("after"),
  div(
    class="after",
    checkboxInput(inputId="x1", label="x1"),
    checkboxInput(inputId="x2", label="x2"),
    checkboxInput(inputId="x3", label="x3"),
    checkboxInput(inputId="x4", label="x4"),
    checkboxInput(inputId="x5", label="x5")
  ),

  absolutePanel(
    h1("after"),
    div(
      class="after",
      checkboxInput(inputId="x1", label="x1"),
      checkboxInput(inputId="x2", label="x2"),
      checkboxInput(inputId="x3", label="x3"),
      checkboxInput(inputId="x4", label="x4"),
      checkboxInput(inputId="x5", label="x5")
    ),
    top=10, right=10, draggable=TRUE)
)

server <- function(input, output, session) {
}

shinyApp(ui, server)

좋은 웹페이지 즐겨찾기