如果您不想使用shiny.css,您可以使用自定义的CSS样式来替代它。以下是一个示例代码,演示如何使用自定义CSS样式来更改shiny应用程序的外观:
library(shiny)
ui <- fluidPage(
tags$head(
tags$style(
HTML("
/* 在这里添加您的自定义CSS样式 */
/* 比如更改背景颜色 */
body {
background-color: lightblue;
}
/* 更改按钮样式 */
.btn-primary {
background-color: darkblue;
border-color: darkblue;
}
")
)
),
sidebarLayout(
sidebarPanel(
actionButton("btn", "点击我")
),
mainPanel(
textOutput("output")
)
)
)
server <- function(input, output) {
output$output <- renderText({
input$btn
})
}
shinyApp(ui, server)
上述示例中,我们使用了tags$head()
和tags$style()
函数来在shiny应用程序的头部添加自定义的CSS样式。在tags$style()
函数中,我们使用HTML()
函数将CSS代码作为文本传递给它。
您可以根据自己的需求添加任何自定义的CSS样式,例如更改背景颜色、字体样式、按钮样式等。请确保将CSS样式代码放置在tags$style()
函数中,并且将其放在tags$head()
函数中,以确保它们在应用程序加载时生效。