[feature] add newlines to messages

munichrocker · Oct 22, 2020 · f6043bd · f6043bd
1 parent 83d15e2
commit f6043bd
Show file tree

Hide file tree

Showing 8 changed files with 9 additions and 9 deletions.
diff --git a/R/dw_copy_chart.R b/R/dw_copy_chart.R
@@ -42,7 +42,7 @@ dw_copy_chart <- function(copy_from, api_key = "environment") {
 
   parsed <- dw_handle_errors(r)
 
-  cat(paste0("New chart's id: ", parsed[["id"]]))
+  cat(paste0("New chart's id: ", parsed[["id"]], "\n"))
 
   structure(
     list(

diff --git a/R/dw_create_chart.R b/R/dw_create_chart.R
@@ -68,7 +68,7 @@ dw_create_chart <- function(api_key = "environment", title = "", type = "", fold
 
   parsed <- dw_handle_errors(r)
 
-  cat(paste0("New chart's id: ", parsed[["id"]]))
+  cat(paste0("New chart's id: ", parsed[["id"]], "\n"))
 
   structure(
     list(

diff --git a/R/dw_create_choropleth_map.R b/R/dw_create_choropleth_map.R
@@ -90,7 +90,7 @@ dw_create_choropleth_map <- function(basemap_id, basemap_value,
 
   parsed <- dw_handle_errors(r)
 
-  cat(paste0("New maps's id: ", parsed[["id"]]))
+  cat(paste0("New maps's id: ", parsed[["id"]], "\n"))
 
   structure(
     list(

diff --git a/R/dw_create_folder.R b/R/dw_create_folder.R
@@ -42,8 +42,8 @@ dw_create_folder <- function(name = "", organization_id = "", parent_id = "", ap
   parsed <- dw_handle_errors(r)
 
   if (httr::status_code(r) %in% c(200, 201, 202, 204)) {
-    cat(paste0("New Folder '", parsed$name, "' successfully created!\n",
-                 "Folder-ID is: ", parsed$id))
+    cat(paste0("New Folder '", parsed$name, "' successfully created!", "\n",
+                 "Folder-ID is: ", parsed$id, "\n"))
   } else {
     warning(paste0("There has been an error in the folder creation process. Statuscode of the response: ", httr::status_code(r)), immediate. = TRUE)
   }

diff --git a/R/dw_create_symbol_map.R b/R/dw_create_symbol_map.R
@@ -92,7 +92,7 @@ dw_create_symbol_map <- function(basemap_id,
 
   parsed <- dw_handle_errors(r)
 
-  cat(paste0("New maps's id: ", parsed[["id"]]))
+  cat(paste0("New maps's id: ", parsed[["id"]], "\n"))
 
   structure(
     list(

diff --git a/R/dw_data_to_chart.R b/R/dw_data_to_chart.R
@@ -59,7 +59,7 @@ dw_data_to_chart <- function(x, chart_id, parse_dates = TRUE, api_key = "environ
                  body = data_body, .DATAWRAPPR_UA)
 
   if (httr::status_code(r) %in% c(200, 201, 202, 204)) {
-    cat(paste0("Chart data in ", chart_id, " successfully updated."))
+    cat(paste0("Data in ", chart_id, " successfully updated.", "\n"))
   } else {
     warning(paste0("There has been an error in the upload process. Statuscode of the response: ", httr::status_code(r)), immediate. = TRUE)
   }

diff --git a/R/dw_delete_chart.R b/R/dw_delete_chart.R
@@ -29,7 +29,7 @@ dw_delete_chart <- function(chart_id, api_key = "environment") {
                     .DATAWRAPPR_UA)
 
   if (httr::status_code(r) == "204") {
-    cat(paste0("Chart ", chart_id, " sucessfully deleted!"))
+    cat(paste0("Chart ", chart_id, " sucessfully deleted!", "\n"))
   } else {
     warning("There has been an error while deleting the chart!", immediate. = TRUE)
     return(r)

diff --git a/R/dw_edit_chart.R b/R/dw_edit_chart.R
@@ -232,7 +232,7 @@ dw_edit_chart <- function(chart_id, api_key = "environment", title = "", intro =
 
   if (chart_id == chart_id_response & httr::status_code(r) %in% c(200, 201, 202, 204)) {
 
-    cat(paste0("Chart ", chart_id_response, " succesfully updated."))
+    cat(paste0("Chart ", chart_id_response, " succesfully updated.", "\n"))
 
   } else {
     warning(paste0("There has been an error in the upload process. Statuscode of the response: ", httr::status_code(r)), immediate. = TRUE)