R Shiny：以交互方式修改應用程序主題

Question

我試圖找到一種從文本輸入交互式修改應用程序主題的方法。

這是我的ui.R.的一個例子。

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

我收到以下錯誤：“錯誤：對象'輸入'未找到”

作為最后一點，我在app文件夾中創建了一個foler www，其中包含bootstrap1.css和其他css文件。

Answer 1

fluidPage的theme選項是插入一個帶有以下調用的CSS腳本：

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

你可以在你的ui中添加這個html作為一個反應元素：

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))
  })
}
))