diff --git a/R/dw_copy_chart.R b/R/dw_copy_chart.R index a108bc0..698f663 100644 --- 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 index 63e130a..fd34d0b 100644 --- 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 index 3da03a1..fd20155 100644 --- 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 index 797ce89..cc4c09a 100644 --- 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 index 4b1fa31..27b2b0e 100644 --- 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 index 603ad17..1cd457b 100644 --- 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 index 1c0bb78..3e17081 100644 --- 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 index 0c79e15..010cc36 100644 --- 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)