(v0.7.0.9001) new pathovars, small fixes

R/zzz.R

@@ -51,6 +51,31 @@
 
 }
 
+
+.onAttach <- function(...) {
+  if (interactive()) {
+    console_width <- options()$width - 1
+    url <- "https://www.surveymonkey.com/r/AMR_for_R"
+    txt <- paste("Thanks for using the AMR package!",
+                 "As researchers, we are interested in how and why you use this package and if there are things you're missing from it.",
+                 "Please fill in our 2-minute survey at:", url)
+
+    # make it honour new lines bases on console width:
+    txt <- unlist(strsplit(txt, " "))
+    txt_new <- ""
+    total_chars <- 0
+    for (i in 1:length(txt)) {
+      total_chars <- total_chars + nchar(txt[i]) + 1
+      if (total_chars > console_width) {
+        txt_new <- paste0(txt_new, "\n")
+        total_chars <- 0
+      }
+      txt_new <- paste0(txt_new, txt[i], " ")
+    }
+    packageStartupMessage(txt_new)
+  }
+}
+
 #' @importFrom data.table as.data.table setkey
 make_DT <- function() {
   microorganismsDT <- as.data.table(AMR::microorganisms)