From 115c9b37db8ee0a72cc0f8f4e20ba3408db12cd2 Mon Sep 17 00:00:00 2001 From: Damian Betebenner Date: Thu, 5 Dec 2024 10:44:09 -1000 Subject: [PATCH] Cleaning up tabs in zzz.R --- R/zzz.R | 28 ++++++++++++---------------- 1 file changed, 12 insertions(+), 16 deletions(-) diff --git a/R/zzz.R b/R/zzz.R index a0fbb762..7e2229ad 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -7,8 +7,7 @@ function(libname, pkgname) { `.onAttach` <- function(libname, pkgname) { if (interactive()) { - - # Function to get the development version + # Utility function get_dev_version <- function(package) { url <- paste0("https://raw.githubusercontent.com/CenterForAssessment/", package, "/refs/heads/master/DESCRIPTION") tryCatch({ @@ -26,28 +25,25 @@ function(libname, pkgname) { }) } - # Extract version information installed.version <- utils::packageDescription("SGP")[['Version']] cran.version <- tryCatch( pkgsearch::cran_package("SGP")[['Version']], error = function(e) "Unavailable", - warning = function(w) "Unavailable" - ) + warning = function(w) "Unavailable") dev.version <- get_dev_version("SGP") # Define a friendly startup message - message_text <- paste0( - magenta(bold("\uD83C\uDF89 SGP v", installed.version, sep="")), " - ", toOrdinal::toOrdinalDate("2024-12-4"), "\n", - strrep("\u2501", 40), "\n", - bold("\U1F4E6 CRAN: "), green("v", cran.version, sep=""), "\n", - bold("\U1F527 Dev: "), cyan("v", dev.version, sep=""), "\n", - strrep("\u2501", 40), "\n", - "\U1F4A1 Tip: ", magenta(bold("> help(package=\"SGP\")")), "\n", - "\U1F310 Docs: ", magenta(bold("https://sgp.io/")), "\n", - strrep("\u2501", 40), "\n", - "\u2728 Happy SGPing!" - ) + message_text <- paste0( + magenta(bold("\uD83C\uDF89 SGP v", installed.version, sep="")), " - ", toOrdinal::toOrdinalDate("2024-12-4"), "\n", + strrep("\u2501", 40), "\n", + bold("\U1F4E6 CRAN: "), green("v", cran.version, sep=""), "\n", + bold("\U1F527 Dev: "), cyan("v", dev.version, sep=""), "\n", + strrep("\u2501", 40), "\n", + "\U1F4A1 Tip: ", magenta(bold("> help(package=\"SGP\")")), "\n", + "\U1F310 Docs: ", magenta(bold("https://sgp.io/")), "\n", + strrep("\u2501", 40), "\n", + "\u2728 Happy SGPing!") # Display the startup message packageStartupMessage(message_text)