Tweak RblConnect

DESCRIPTION

@@ -1,10 +1,10 @@
 Package: RblDataLicense
 Type: Package
 Title: R Interface to 'Bloomberg Data License'
-Version: 0.2.5
+Version: 0.2.6
 Authors@R: person(given = "Emanuele", 
 				  family = "Guidotti", 
-				  email = "emanuele.guidotti@unine.ch", 
+				  email = "emanuele.guidotti@usi.ch", 
 				  role = c("aut", "cre"), 
 				  comment = c(ORCID = "0000-0002-8961-6623"))
 Description: R interface to access prices and market data with the 
@@ -22,4 +22,4 @@ BugReports: https://github.com/eguidotti/RblDataLicense/issues
 Depends: RCurl, xts, methods
 Suggests: knitr, rmarkdown
 VignetteBuilder: knitr
-RoxygenNote: 7.2.1
+RoxygenNote: 7.2.3

R/core.R

@@ -10,7 +10,7 @@
 #' @param host The connection host
 #' @param port The connection port
 #' @param protocol The connection protocol
-#' @param verbose logical. Should R report extra information on progress?
+#' @param verbose logical. Should print extra information on failure?
 #' 
 #' @return logical. Is the connection succesful?
 #' 
@@ -31,8 +31,7 @@ RblConnect <- function(user, pw, host = 'sftp.bloomberg.com', port = '22', proto
     url <- paste0(protocol, '://', user, ':', pw, '@', host, ':', port)
 
     # test connection
-    if( is(try(getURL(url), silent = T), 'try-error') ){ 
-      if(verbose) cat('Authentication failure: check your configurations and whitelist the IP address in use. Contact Bloomberg support for help.')
+    if( is(try(getURL(url), silent = !verbose), 'try-error') ){ 
       return(FALSE)
     }