r - 在 Shiny 的应用程序中包含自定义 css

Question

我有以下 Shiny 的应用程序

用户界面

data("iris")
library(ggplot2)
library(dplyr)

ui <- fluidPage(theme = "mystyle.css",
  tabsetPanel(
    tabPanel("Tab 1", "Hello"),
    div(id = "box1", style="color:#0000FF", selectInput("boxplot1", "Choose a dataset:",
                choices = c(list("setosa", "versicolor", "virginica")))),
    div(id = "box2", selectInput("boxplot1", "Choose a dataset:",
                choices = c(list("setosa", "versicolor", "virginica"))))
  ),
  mainPanel(plotOutput("plot_boxplot"))
)

服务器

library(shiny)
library(datasets)

shinyServer(function(input, output) {

  filtered <- reactive({
    iris %>%
      filter(Sepal.Length >= 0)
  })

  output$plot_boxplot <- renderPlot({
    ggplot(filtered(), aes(x=Species, y=Sepal.Length)) + 
      geom_point(size = 4) + 
      geom_boxplot() +
      ylab("Sepal Length")  +
      stat_summary(fun.y=mean, geom="point", shape=5, size=4) 
  })


  # Generate a summary of the dataset
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Show the first "n" observations
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })
})

这一切正常。但是我想包含一些自定义 CSS。

如果我使用我的第一个输入框，将它包装成一个 div 语句并包含一些 .css，如下所示:

    div(id = "box1", style="color:#0000FF", selectInput("boxplot1", "Choose a dataset:",
            choices = c(list("setosa", "versicolor", "virginica")))),

有用。但是，出于组织目的，我想将其存储为单独的 .css 文件。如果我在 www 文件夹中创建并包含一个链接:

ui <- fluidPage(theme = "mystyle.css",

并将以下内容添加到文件 mystyle.css 中:

#box1{
 width: 20%;
 height: 100px;
 style="color:#0000FF";
}

我没有得到相同的结果。检查这里的所有代码:

mystyle.css

#box1{
 width: 20%;
 height: 100px;
 style="color:#0000FF";
}

用户界面

data("iris")
library(ggplot2)
library(dplyr)

ui <- fluidPage(theme = "mystyle.css",
  tabsetPanel(
    tabPanel("Tab 1", "Hello"),
    div(id = "box1", selectInput("boxplot1", "Choose a dataset:",
                choices = c(list("setosa", "versicolor", "virginica")))),
    div(id = "box2", selectInput("boxplot1", "Choose a dataset:",
                choices = c(list("setosa", "versicolor", "virginica"))))
  ),
  mainPanel(plotOutput("plot_boxplot"))
)

服务器

library(shiny)
library(datasets)

# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output) {

  filtered <- reactive({
    iris %>%
      filter(Sepal.Length >= 0)
  })

  output$plot_boxplot <- renderPlot({
    ggplot(filtered(), aes(x=Species, y=Sepal.Length)) + 
      geom_point(size = 4) + 
      geom_boxplot() +
      ylab("Sepal Length")  +
      stat_summary(fun.y=mean, geom="point", shape=5, size=4) 
  })


  # Generate a summary of the dataset
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })

  # Show the first "n" observations
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })
})

关于我在这里做错了什么的任何想法？

Answer 1

您是否尝试过使用 IncludeCSS() ，如建议 here ?
可能是您的 .CSS 文件没有按照 shiny's tutorial 中的建议保存在您的 www 文件夹中?