css - R Shiny : Interactively modify application theme

Question

我正在尝试找到一种通过文本输入以交互方式修改应用程序主题的方法。

这是我的 ui.R 示例。

shinyUI(fluidPage(
  tabsetPanel(
    tabPanel("Main"),
    tabPanel("Settings",
      textInput("skin", "Select Skin", value = "bootstrap1.css")
    ), type = "pills", position = "above"
   ),theme = input$skin
  )
)

我收到以下错误:“错误:未找到对象‘输入’”

作为最后的说明，我在应用程序文件夹中创建了一个 foler www，其中包含 bootstrap1.css 和其他 css 文件。

Answer 1

fluidPage 中的 theme 选项正在使用以下调用插入 CSS 脚本:

tags$head(tags$link(rel = "stylesheet", type = "text/css", 
                            href = input$Skin))

您只需将此 html 添加为您的 ui 中的 react 元素即可:

library(shiny)
runApp(list(ui = fluidPage(
  tabsetPanel(
    tabPanel("Main"),
    tabPanel("Settings",
             textInput("Skin", "Select Skin", value = "bootstrap1.css")
    ), type = "pills", position = "above"
  ), 
  uiOutput("myUI")
)
, server = function(input, output, session){
  output$myUI <- renderUI({
    tags$head(tags$link(rel = "stylesheet", type = "text/css", 
                        href = input$Skin))
  })
}
))