diff --git a/R/landing_page.R b/R/landing_page.R index 84d2e38..fefc915 100644 --- a/R/landing_page.R +++ b/R/landing_page.R @@ -250,7 +250,7 @@ observe({ .print_message( - title = "Welcome to the Microbiome Analysis Dashboard! 🦠", + title = "Welcome to the Microbiome Analysis Dashboard! \U0001f9a0", "miaDash is actively maintained by the", tags$a(href = "https://datascience.utu.fi/", "Turku Data Science Group", target = "_blank", .noWS = "after"), diff --git a/R/miaDash.R b/R/miaDash.R index e57ed22..f0d63ac 100644 --- a/R/miaDash.R +++ b/R/miaDash.R @@ -27,7 +27,8 @@ miaDash <- function() { iSEE( landingPage = .landing_page, - appTitle = sprintf("Microbiome Analysis Dashboard - v%s", packageVersion("miaDash")) + appTitle = paste0("Microbiome Analysis Dashboard \U0001f9a0 - ", + packageVersion("miaDash")) ) }