Merge pull request CenterForAssessment#103 from dbetebenner/master

Update of startup message

Author: dbetebenner

NAMESPACE

@@ -1,4 +1,4 @@
-importFrom(crayon,bold,green,magenta,red,yellow)
+importFrom(crayon,bold,cyan,green,magenta,red,yellow)
 importFrom(utils,packageVersion)
 importFrom(toOrdinal,toOrdinal)
 import(data.table)

R/zzz.R

@@ -4,16 +4,43 @@ function(libname, pkgname) {
 
 `.onAttach` <- function(libname, pkgname) {
     if (interactive()) {
+		# Utility function 
+        get_dev_version <- function(package) {
+            url <- paste0("https://raw.githubusercontent.com/CenterForAssessment/", package, "/refs/heads/master/DESCRIPTION")
+            tryCatch({
+                lines <- readLines(url, warn = FALSE)
+                version_line <- grep("^Version:", lines, value = TRUE)
+                if (length(version_line) > 0) {
+                    return(strsplit(version_line, ": ")[[1]][2])
+                } else {
+                    return("Unavailable")
+                }
+            }, error = function(e) {
+                return("Unavailable")
+            }, warning = function(w) {
+                return("Unavailable")
+            })
+        }
+
         # Extract version information
-        version <- utils::packageVersion("SGPdata")
+        installed.version <- utils::packageDescription("SGPdata")[['Version']]
+        cran.version <- tryCatch(
+            pkgsearch::cran_package("SGPdata")[['Version']],
+            error = function(e) "Unavailable",
+            warning = function(w) "Unavailable")
+        dev.version <- get_dev_version("SGPdata")
 
         # Define a friendly startup message
-	message_text <- paste0(
-	    magenta(bold("\uD83C\uDF89 SGPdata v", version)), " - ", toOrdinal::toOrdinalDate("2024-12-3"), "\n",
-	    "\U1F4A1 Tip: ", magenta(bold("> help(\"SGPdata\")")), "\n",
-	    "\U1F310 Docs: ", magenta(bold("https://centerforassessment.github.io/SGPdata")), "\n",
-	    "\u2728 Happy SGPing!"
-	)
+		message_text <- paste0(
+		    magenta(bold("\uD83C\uDF89 SGPdata 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=\"SGPdata\")")), "\n",
+		    "\U1F310 Docs: ", magenta(bold("https://centerforassessment.github.io/SGPdata")), "\n",
+			strrep("\u2501", 40), "\n",
+		    "\u2728 Happy SGPing!")
 
         # Display the startup message
         packageStartupMessage(message_text)