UPDATE v0.1.6

R/zzz.R

@@ -13,7 +13,7 @@
   violet  <- "\033[35m"
   reset   <- "\033[0m"
 
-  # Coloring Taiwan in rainbow colors
+  # Coloring Taiwan
   rainbow_taiwan <- paste0(
     red, "T",
     orange, "a",
@@ -27,16 +27,16 @@
   # Creating the first message
   message1 <- paste0(dark_green, "legis", reset, rainbow_taiwan)
 
-  # Maximum allowed length
-  max_len <- 64
-  num_spaces <- max_len - nchar(message1, type = "bytes") - 4
-  num_spaces <- max(0, num_spaces)
-
-  message1 <- paste0("## ", message1, rep(" ", num_spaces), " ##")
-
   # Second message
   message2 <- "## An R package connecting to the Taiwan Legislative API. ##"
 
+  # Calculate the required number of spaces to align the two lines
+  num_spaces <- nchar(message2, type = "bytes") - nchar(message1, type = "bytes") - 6  # -6 to account for the four hashes and two spaces
+  num_spaces <- max(0, num_spaces)
+
+  message1 <- paste0("## ", message1, rep(" ", num_spaces), "                                            ##")
+
   packageStartupMessage(message1)
   packageStartupMessage(message2)
 }
+

_pkgdown.yml

@@ -6,16 +6,12 @@ home:
   links:
   - text: Discussion
     href: https://github.com/davidycliao/legisTaiwan/discussions
-  - text: The Center of Legislative Study at Taiwan SCU 台灣東吳大學國會研究中心
-    href: https://twcongress.weebly.com/2228326371360392600924235.html
   - text: legisCrawler 爬台灣立法委員問政專輯的爬蟲小幫手️🕸️
     href: https://davidycliao.github.io/legisCrawler/
   - text: "Text and Policy Research Group @ UCD"
     href: https://text-and-policy.com
   - text: "The Connected_Politics Lab @ UCD"
     href: https://www.ucd.ie/connected_politics/
-  - text: "legisTaiwan: An Interface to Access Taiwan Legislative API in R"
-    href: https://davidycliao.github.io/legisTaiwan/
   - text: "LACAN: Legislators, Accountability and Collective Agency"
     href: https://projectlacan.wordpress.com/team/
   - text: "ParlSpeech: Legislative Speeches in the Key Parliamentary Democracies"