Skip to content

Commit

Permalink
Update of startup message
Browse files Browse the repository at this point in the history
  • Loading branch information
dbetebenner committed Dec 9, 2024
1 parent 7613427 commit c287469
Show file tree
Hide file tree
Showing 3 changed files with 38 additions and 11 deletions.
2 changes: 1 addition & 1 deletion DESCRIPTION
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ Authors@R: c(person(given=c("Damian", "W."), family="Betebenner", email="dbetebe
Maintainer: Damian W. Betebenner <[email protected]>
Depends: R (>= 4.0)
Suggests: SGPdata (>= 24.0-0), knitr, rmarkdown
Imports: abind, crayon, data.table (>= 1.14.0), dplyr, grid, HDInterval, Hmisc, MASS, mice, miceadds, parallel, SGP, testthat, tidyr, tidyselect, toOrdinal, VIM
Imports: abind, crayon, data.table (>= 1.14.0), dplyr, grid, HDInterval, Hmisc, MASS, mice, miceadds, parallel, pkgsearch, SGP, testthat, tidyr, tidyselect, toOrdinal, VIM
URL: https://CenterForAssessment.github.io/cfaTools/, https://github.com/CenterForAssessment/cfaTools, https://cran.r-project.org/package=cfaTools
BugReports: https://github.com/CenterForAssessment/cfaTools/issues
VignetteBuilder: knitr
Expand Down
2 changes: 1 addition & 1 deletion NAMESPACE
Original file line number Diff line number Diff line change
Expand Up @@ -20,7 +20,7 @@ import(miceadds)
import(parallel)
import(VIM)
importFrom(abind, abind)
importFrom(crayon, bold, green, magenta, red, yellow)
importFrom(crayon, bold, cyan, green, magenta, red)
importFrom(dplyr, group_by, ungroup)
importFrom(grDevices, dev.off, extendrange,pdf)
importFrom(HDInterval, hdi)
Expand Down
45 changes: 36 additions & 9 deletions R/zzz.R
Original file line number Diff line number Diff line change
Expand Up @@ -2,20 +2,47 @@
function(libname, pkgname) {
}

.onAttach <- 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(cyan("v", strsplit(version_line, ": ")[[1]][2], sep=""))
} else {
return(red("Not Available"))
}
}, error = function(e) {
return(red("Not Available"))
}, warning = function(w) {
return(red("Not Available"))
})
}

# Extract version information
version <- utils::packageVersion("cfaTools")
installed.version <- utils::packageDescription("cfaTools")[['Version']]
cran.version <- tryCatch(
green("v", pkgsearch::cran_package("cfaTools")[['Version']], sep=""),
error = function(e) red("Not Available"),
warning = function(w) red("Not Available"))
dev.version <- get_dev_version("cfaTools")

# Define a friendly startup message
message_text <- paste0(
magenta(bold("\uD83C\uDF89 cfaTools v", version)), " - ", toOrdinal::toOrdinalDate("2024-12-3"), "\n",
"\U1F4A1 Tip: ", magenta(bold("> help(\"cfaTools\")")), "\n",
"\U1F310 Docs: ", magenta(bold("https://centerforassessment.github.io/cfaTools")), "\n",
"\u2728 Happy cfaTooling!"
)
message_text <- paste0(
magenta(bold("\uD83C\uDF89 cfaTools v", installed.version, sep="")), " - ", toOrdinal::toOrdinalDate("2024-12-8"), "\n",
strrep("\u2501", 40), "\n",
bold("\U1F4E6 CRAN: "), cran.version, "\n",
bold("\U1F527 Dev: "), dev.version, "\n",
strrep("\u2501", 40), "\n",
"\U1F4A1 Tip: ", magenta(bold("> help(package=\"cfaTools\")")), "\n",
"\U1F310 Docs: ", magenta(bold("https://centerforassessment.github.io/cfaTools")), "\n",
strrep("\u2501", 40), "\n",
"\u2728 Happy cfaTooling!")

# Display the startup message
packageStartupMessage(message_text)
}
}
}

0 comments on commit c287469

Please sign in to comment.