R/celgene_logo_title.R

In nicholasjkomarov/celgenethemes: What the Package Does (One Line, Title Case)

# celgene_logo_title <- function(title) {
#   tags$a(tags$img(src = 'celgene-logo.png',
#                   height = '70',
#                   width = '80'),
#          span(title,
#               style = "color: #293E81;
#                         vertical-align: middle;
#                         margin-left: 15px;
#                         font-family: Source Sans Pro,Helvetica,Arial,sans-serif;
#                         font-size: 16px;
#                         font-weight: 700;
#                         line-height: 1.1;"))
# }

celgene_logo_title <- function(title) {
  tags$a(tags$img(src = magick::image_read(system.file("logos/celgene-logo.png", "celgenethemes")),
                  height = '70',
                  width = '80'),
         span(title,
              style = "color: #293E81;
                        vertical-align: middle;
                        margin-left: 15px;
                        font-family: Source Sans Pro,Helvetica,Arial,sans-serif;
                        font-size: 16px;
                        font-weight: 700;
                        line-height: 1.1;"))
}