附注我已经更新了该帖子，以使其更加清晰！

如何为 html 中的框指定不同的颜色来标记内部和外部应用程序？

我正在尝试将盒子标记为不同的颜色，作为内部外部应用程序的标记。然后这个 html 被传递到一个 rshiny 应用程序中。

内部应用程序是由 内部有 astrazeneca 字样的网页链接定义的，外部链接是那些 没有 astrazeneca 字样的网页链接。

这是我拥有的 html 文件示例（我有大约 50 个 html 文件，但只会提供一个）作为示例：

    



    
    
Gene Expression Analysis
    

        

            
                
                
Fludigm_Browser
                
Perform Fluidigm data analysis
            
        
        

            
                
                
GTEx Portal
                
Gene expression in normal tissue
            
        
        

            
                
                
 BioTuring 
                
Platform for single-cell analysis and spatial transcriptomics exploration
            
        
        

            
                
                
SCOPE
                
Explore available single cell RNA-Seq studies
            
        
    

    
Pathway Analysis
    

        

            
                
                
Clarivate
                
Pathway analysis tools from Cortellis including MetaCore
            
        
        

            
                
                
Ingenuity Pathway Analysis
                
Analyze data using manually curated gene sets
            
        
        

            
                
                
OnRamp - Rosalind
                
Interactively explore RNA-seq and ChIP-Seq data
            
        
        

            
                
                
GSEA
                
Gene set enrichment analysis
            
        
    

正如您在上面的 html 中看到的，我几乎没有以“astrazeneca”作为单词的链接，例如"https://rstudio-connect.scp.astrazeneca.net/RStudio_FLAT/" 和另一个不带 的，例如“www/bioturing.svg”

这是 rshiny 代码，出于上下文目的：

library(shiny)
ui <- shiny::fluidPage(
  theme = shinythemes::shinytheme("united"),

  tags$head(tags$style(".navbar {margin-bottom: 0px;}")),

  tags$head(
    tags$style(".container-fluid {padding-right: 0px; padding-left: 0px;}")
  ),

  navbarPage(
    title = div(
      img(src = "www/bftb_logo_v8_bare.png", height = "30px"),
      "AZ Oncology Bioinformatics Toolbox"
    ),
    windowTitle = "BFTB Landing Page",

    tabPanel("Toolbox", icon = icon("wrench"), disable = TRUE,
             shinydashboard::dashboardPage(
               header = shinydashboard::dashboardHeader(title = "   ", titleWidth = 300, disable = TRUE),
               shinydashboard::dashboardSidebar(
                 width = 300 ,
                 textInput("search_term", "Search for apps:"),
                 actionButton("search_button", "Search"),
                 shinydashboard::sidebarMenu(
                   shinydashboard::menuItem(
                     "Tools",
                     tabName = "tools_app",
                     icon = icon("wrench")
                   ),
                   shinydashboard::menuSubItem(
                     "Gene Expression/Signature/Pathways",
                     tabName = "gene_app",
                     icon = icon("chart-line")
                   )
                 )
               ),
               shinydashboard::dashboardBody(
                 shinydashboard::tabItems(
                   shinydashboard::tabItem("tools_app", mod_tools_path_ui("tools_path_ui_1")),
                   shinydashboard::tabItem("gene_app", mod_gene_expressions_sign_path_ui("gene_expression_sign_path_ui"))
                 )
               )
             )
    )
  )
)


server <- function(input, output){


}


shinyApp(ui = ui, server = server)

以及 2 个模块：工具一

mod_tools_path_ui <- function(id){
  ns <- NS(id)
  tagList(
    
  )
}

和基因一：

mod_gene_expressions_sign_path_ui <- function(id){
  ns <- NS(id)
  tagList(
    shinydashboard::tabItem(
      tabName = "gene_app",
      fluidRow(
        shiny::headerPanel(h3()),
        br(),
        htmltools::htmlTemplate("www/gene.html")
      )
    )
  )
  
}