Update app.R

app.R

@@ -119,13 +119,13 @@ getMetricLabel <- function(metric_value) {
 ui <- fluidPage(
   titlePanel("Multiscale Representations Explorer"),
   tags$p(
-    style = "text-align: center; margin-top: -10px;",
+    style = "text-align: left; margin-top: -10px;",
     tags$a(
       href = "https://planetarycausalinference.org/",
       target = "_blank",
       title = "PlanetaryCausalInference.org",
       style = "color: #337ab7; text-decoration: none;",
-      "aidevlab ",
+      "PlanetaryCausalInference.org ",
       icon("external-link", style = "font-size: 12px;")
     )
     ),