Merge pull request #102 from dbetebenner/master

Updating startup message

DESCRIPTION

@@ -1,15 +1,15 @@
 Package: SGPdata
 Type: Package
 Title: Exemplar Data Sets for Student Growth Percentiles (SGP) Analyses
-Version: 28.0-0.0
-Date: 2024-7-14
+Version: 28.5-0.0
+Date: 2024-12-3
 Authors@R: c(person(given=c("Damian", "W."), family="Betebenner", email="[email protected]", role=c("aut", "cre")),
             person(given=c("Adam", "R."), family="Van Iwaarden", email="[email protected]", role="aut"),
             person(given="Ben", family="Domingue", email="[email protected]", role="aut"))
 Maintainer: Damian W. Betebenner <[email protected]>
 Depends: R (>= 4.0)
 Suggests: SGP (>= 1.9-0.0), knitr, rmarkdown
-Imports: crayon, data.table (>= 1.14.0)
+Imports: crayon, data.table (>= 1.14.0), toOrdinal
 Description:  Data sets utilized by the 'SGP' package as exemplars for users to conduct their own student growth percentiles (SGP) analyses.
 URL: https://CenterForAssessment.github.io/SGPdata/, https://github.com/CenterForAssessment/SGPdata/, https://cran.r-project.org/package=SGPdata
 BugReports: https://github.com/CenterForAssessment/SGPdata/issues/

NAMESPACE

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

R/zzz.R

@@ -2,10 +2,20 @@
 function(libname, pkgname) {
 }
 
+`.onAttach` <- function(libname, pkgname) {
+    if (interactive()) {
+        # Extract version information
+        version <- utils::packageVersion("SGPdata")
 
-`.onAttach` <-
-function(libname, pkgname) {
-	if (interactive()) {
-		packageStartupMessage(magenta$bold('SGPdata',paste(paste0(unlist(strsplit(as.character(packageVersion("SGPdata")), "[.]")), c(".", "-", ".", "")), collapse=""),' (7-14-2024). For help: >help("SGPdata") or visit https://centerforassessment.github.io/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!"
+	)
+
+        # Display the startup message
+        packageStartupMessage(message_text)
+    }
+}

inst/CITATION

@@ -8,12 +8,12 @@ bibentry(
                     person(given = c("Benjamin"), family = "Domingue")
                    ),
     year         = "2024",
-    note         = "R package version 28.0-0.0",
+    note         = "R package version 28.5-0.0",
     url          = "https://centerforassessment.github.io/SGPdata/",
     textVersion  = paste(
                     "Damian W. Betebenner, Adam R. Van Iwaarden and Ben Domingue (2024).",
                     "SGPdata: Exemplar Data Sets for Student Growth Percentile (SGP) Analyses.",
-                    "(R package version 28.0-0.0.",
+                    "(R package version 28.5-0.0.",
                     "URL: https://centerforassessment.github.io/SGPdata/"
                   )
 )

man/SGPdata-package.Rd

@@ -11,8 +11,8 @@
 \tabular{ll}{
 Package: \tab SGPdata\cr
 Type: \tab Package\cr
-Version: \tab 28.0-0.0\cr
-Date: \tab 2024-7-14\cr
+Version: \tab 28.5-0.0\cr
+Date: \tab 2024-12-3\cr
 License: \tab GPL-3\cr
 LazyLoad: \tab Yes\cr
 LazyData: \tab Yes\cr