代码之家 › 专栏 › 技术社区 › Lilyzeng

如何更改r中textAreaInput的背景色?

shinydashboard background-color textarea shiny

Lilyzeng · 技术社区 · 7 年前

我用过 textAreaInput() 在里面 dashboardHeader 允许标题中有多行。但是这个文本区域的背景色是白色的,无法融入那里的标题面板。我想将此文本区域的背景色更改为透明或与中使用的颜色相同 仪表板标题 . 我试过下面这样的方法。但它不起作用。有什么建议吗?非常感谢。

library(shiny)
library(shinydashboard)

shinyApp(server = function(input, output) {}, ui = 

dashboardPage(skin = "blue",

dashboardHeader(
    title = textAreaInput(inputId = 'header',label = NULL, 
                          width = 250, height = 100,
                          value = "This is a very very very very very loooooong title"
                      ),
    titleWidth = 260
),

dashboardSidebar(
    width = 260,     
    sidebarMenu(
       menuItem("About", tabName = "about", icon = icon("circle")),
       menuItem("References", tabName = "ref", icon = icon("book"))
     )
),

dashboardBody(

    tags$head(tags$style(HTML('
           .textArea {
              background-color: #0000ff;
              border: none;
            }
     '))),

    tabItems(
        tabItem(tabName = 'about'),
        tabItem(tabName = 'ref')
    )
)
))

1 回复 | 直到 7 年前

Bertil Baron 7 年前

嗨,你有两个选择

如果要更改每个textArea的backgrondcolor,请首先选择一个。我需要删除textArea之前的点,因为它是一个标记,而不是类。前面的点告诉标识符查找类。然后你需要添加!这样的颜色之后很重要。

tags$head(tags$style(HTML('
   textArea {
     background-color: #0000ff !important;
     border: none;
   }')))

第二个问题是,如果您只想更改此特定文本的背景色,那么最好使用id #header 在这种情况下,你不需要 !important

tags$head(tags$style(HTML('
  #header{
    background-color: #0000ff !important;
    border: none;
    }')))

希望这有帮助!

推荐文章

JeanBertin · 使用动态RJDBC连接创建R Shiny应用程序

6 年前

nilesguo · shinydashboard选项卡项目不工作

6 年前

Rohit Kumar Singh · 闪亮仪表板侧栏中的可折叠菜单项

6 年前

Adam Shaw · 在R shinny中的一个被动功能中显示多个信息框

6 年前

Andrew Scotchmer · 闪亮的selectInput CSS影响所有selectInputs

7 年前

AgnieszkaTomczyk · renderIUI在R中的闪亮模块中不工作

7 年前

SJB · 在R闪亮仪表板中输入2个表格

7 年前

Tony J Duan · 书签在闪亮的仪表板上不起作用?

7 年前

Afloz · 更新复选框组输入不适用于多个复选框

7 年前

Nabi Shaikh · For循环在服务器中不工作。亮内反应函数上的r

7 年前