Console message using message() instead of cat

R/CetesbRetrieve.R

@@ -59,10 +59,10 @@ CetesbRetrieve <- function(username, password,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")                                              # nocov
-    cat("Parameter:", pol_name, "\n")                                    # nocov
-    cat("Air quality staion:", aqs_name, "\n")                           # nocov
-    cat("Period: From", start_date, "to", end_date, "\n")                # nocov
+    message("Your query is:")                                              # nocov
+    message("Parameter: ", pol_name)                                    # nocov
+    message("Air quality staion: ", aqs_name)                           # nocov
+    message("Period: From ", start_date," to ", end_date)                # nocov
   }
 
 
@@ -115,7 +115,7 @@ CetesbRetrieve <- function(username, password,
   if (ncol(dat) != 19){
     dat <- data.frame(date = all.dates$date , pol = NA, aqs = aqs_name,  # nocov
                       stringsAsFactors = FALSE)                          # nocov
-    cat(paste0('No data available for ', pol_name), "\n")                # nocov
+    message(paste0('No data available for ', pol_name))                # nocov
   } else if (ncol(dat) == 19) {
     names(dat) <- cet.names
     dat$date <- paste(dat$day, dat$hour, sep = '_')
@@ -126,15 +126,15 @@ CetesbRetrieve <- function(username, password,
     dat <- merge(all.dates, dat, all = TRUE)
 
     if (nrow(dat) != nrow(all.dates)){
-      cat(paste0('Dates missmatch ',                              # nocov start
-                 unique(stats::na.omit(dat$est))), "\n")
-      cat('Duplicated date in ',
-          dat$date[duplicated(dat$date)], "\n")
+      message(paste0('Dates missmatch ',                              # nocov start
+              unique(stats::na.omit(dat$est))))
+      message('Duplicated date in ',
+              dat$date[duplicated(dat$date)])
       dat <- data.frame(date = dat$date , pol = dat$value,
                         aqs = aqs_name,
                         stringsAsFactors = FALSE)
     } else {
-      cat(paste0('Download OK ', pol_abr), "\n")
+      message(paste0('Download OK ', pol_abr))
       dat <- data.frame(date = all.dates$date , pol = dat$value ,
                         aqs = aqs_name, stringsAsFactors = FALSE)
     }                                                             # nocov end

R/CetesbRetrieveMet.R

@@ -43,10 +43,10 @@ CetesbRetrieveMet <-  function(username, password,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter: TC, RH, WS, WD, Pressure \n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: TC, RH, WS, WD, Pressure")
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   tc <- CetesbRetrieve(username, password, 25,
@@ -77,8 +77,8 @@ CetesbRetrieveMet <-  function(username, password,
                         p = p$pol,
                         aqs = tc$aqs,
                         stringsAsFactors = FALSE)
-  cat(paste(
-    "Download complete for", unique(all_met$aqs), "\n"
+  message(paste(
+    "Download complete for", unique(all_met$aqs)
     ))
 
   if (to_csv){

R/CetesbRetrieveMetPol.R

@@ -45,11 +45,11 @@ CetesbRetrieveMetPol <- function(username, password,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter: TC, RH, WS, WD, Pressure,\n",
-        "O3, NO, NO2, NOX, PM2.5, PM10, CO \n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is: ")
+    message(paste("Parameter: TC, RH, WS, WD, Pressure,",
+                  "O3, NO, NO2, NOX, PM2.5, PM10, CO"))
+    message("Air quality station: ", aqs_name)
+    message("Period: From", start_date, " to ", end_date)
   }
 
   tc <- CetesbRetrieve(username, password, 25,
@@ -116,8 +116,8 @@ CetesbRetrieveMetPol <- function(username, password,
                          pm25 = pm25$pol,
                          aqs = o3$aqs,
                          stringsAsFactors = FALSE)
-  cat(paste(
-    "Download complete for", unique(all_data$aqs), "\n"
+  message(paste(
+    "Download complete for", unique(all_data$aqs)
   ))
 
   if (to_csv){

R/CetesbRetrieveParam.R

@@ -64,10 +64,10 @@ CetesbRetrieveParam <- function(username, password, parameters,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter:", paste(codes_df$name, collapse = ", "), "\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: ", paste(codes_df$name, collapse = ", "))
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   # Downloading data

R/CetesbRetrievePol.R

@@ -43,10 +43,10 @@ CetesbRetrievePol <- function(username, password,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter: O3, NO, NO2, NOX, MP2.5, MP10, CO\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: O3, NO, NO2, NOX, MP2.5, MP10, CO")
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   o3 <- CetesbRetrieve(username, password, 63,
@@ -88,8 +88,8 @@ CetesbRetrievePol <- function(username, password,
                         pm25 = pm25$pol,
                         aqs = o3$aqs,
                         stringsAsFactors = FALSE)
-  cat(paste(
-    "Download complete for", unique(all_pol$aqs), "\n"
+  message(paste(
+    "Download complete for", unique(all_pol$aqs)
   ))
 
   if (to_csv){

R/MonitorArRetrieveMet.R

@@ -37,10 +37,10 @@ MonitorArRetrieveMet <- function(start_date, end_date, aqs_code,
   aqs_name <- aqs_monitor_ar$name[aqs_monitor_ar$code == aqs_code]
 
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter:", paste(params, collapse = ", "), "\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: ", paste(params, collapse = ", "))
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   all_met <- MonitorArRetrieveParam(start_date, end_date, aqs_code,

R/MonitorArRetrieveMetPol.R

@@ -40,10 +40,10 @@ MonitorArRetrieveMetPol <- function(start_date, end_date, aqs_code,
   aqs_name <- aqs_monitor_ar$name[aqs_monitor_ar$code == aqs_code]
 
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter:", paste(params, collapse = ", "), "\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is: ")
+    message("Parameter: ", paste(params, collapse = ", "))
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   all_data <- MonitorArRetrieveParam(start_date, end_date, aqs_code,

R/MonitorArRetrieveParam.R

@@ -44,10 +44,10 @@ MonitorArRetrieveParam <- function(start_date, end_date, aqs_code, parameters,
 
   # Adding query summary
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter:", paste(parameters, collapse = ", "), "\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: ", paste(parameters, collapse = ", "))
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   start_date_format <- as.POSIXct(strptime(start_date, format="%d/%m/%Y"),
@@ -88,8 +88,8 @@ MonitorArRetrieveParam <- function(start_date, end_date, aqs_code, parameters,
                    ))
   # Checking request
   if (res$status_code == 200){
-    cat("Succesful request \n")
-    cat(paste("Downloading ", paste(parameters, collapse = " ")), "\n")
+    message("Succesful request")
+    message(paste("Downloading ", paste(parameters, collapse = " ")))
   } else {
     stop("Unsuccesful request. Something goes wrong", call. = FALSE)     # nocov
   }
@@ -99,7 +99,7 @@ MonitorArRetrieveParam <- function(start_date, end_date, aqs_code, parameters,
 
   # Create an empty data frame is there is no input
   if (length(raw_data$feature) == 0){
-    cat("Data unavailable", "\n")                                  # nocov start
+    message("Data unavailable")                             # nocov start
     data_aqs <- data.frame(Data = NA)
     for (p in parameters){
       data_aqs[[p]] <- NA                                          # nocov end
@@ -126,7 +126,7 @@ MonitorArRetrieveParam <- function(start_date, end_date, aqs_code, parameters,
   )
 
   if (nrow(all_dates) != nrow(data_aqs)){
-    cat("Padding out missing dates with NA \n")                       # nocov
+    message("Padding out missing dates with NA")                     # nocov
     data_aqs <- merge(all_dates, data_aqs, all = TRUE)                # nocov
   }
 

R/MonitorArRetrievePol.R

@@ -37,10 +37,10 @@ MonitorArRetrievePol <- function(start_date, end_date, aqs_code,
   aqs_name <- aqs_monitor_ar$name[aqs_monitor_ar$code == aqs_code]
 
   if (verbose){
-    cat("Your query is:\n")
-    cat("Parameter:", paste(params, collapse = ", "), "\n")
-    cat("Air quality station:", aqs_name, "\n")
-    cat("Period: From", start_date, "to", end_date, "\n")
+    message("Your query is:")
+    message("Parameter: ", paste(params, collapse = ", "))
+    message("Air quality station: ", aqs_name)
+    message("Period: From ", start_date, " to ", end_date)
   }
 
   all_pol <- MonitorArRetrieveParam(start_date, end_date, aqs_code,

R/WriteCSV.R

@@ -17,5 +17,5 @@ WriteCSV <- function(aqs_data_df, aqs_name, start_date, end_date, vars){
   utils::write.table(aqs_data_df, file_name, sep = ",", row.names = FALSE)
 
   file_path <- paste(getwd(), file_name, sep = "/")
-  cat(paste(file_path, "was created \n"))
+  message(paste(file_path, "was created"))
 }