handle wasted space after \n by adding sep=""

Author: Mukulyadav2004

vignettes/datatable-programming.Rmd

@@ -478,9 +478,9 @@ DT <- data.table(a = 1:3, b = 4:6)
 tryCatch({
   setkey(DT, "nonexistent_col")
 }, dt_missing_column_error = function(e) {
-  cat("Missing column detected:", conditionMessage(e), "\n")
+  cat("Missing column detected:", conditionMessage(e), "\n", sep="")
 }, error = function(e) {
-  cat("Other error:", conditionMessage(e), "\n")
+  cat("Other error:", conditionMessage(e), "\n", sep="")
 })
 
 # Handle type mismatches in operations  
@@ -490,9 +490,9 @@ DT2 <- data.table(id = 1:3, value = 1:3)
 tryCatch({
   fintersect(DT1, DT2)
 }, dt_join_type_mismatch_error = function(e) {
-  cat("Type mismatch in join:", conditionMessage(e), "\n")
+  cat("Type mismatch in join:", conditionMessage(e), "\n", sep="")
 }, error = function(e) {
-  cat("Other error:", conditionMessage(e), "\n")
+  cat("Other error:", conditionMessage(e), "\n", sep="")
 })
 ```