fix newline

dwulff · Feb 24, 2023 · 75bc68a · 75bc68a
1 parent 1c3990f
commit 75bc68a
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/ensemble.R b/R/ensemble.R
@@ -79,7 +79,7 @@ detect_sdg = function(text,
 
 
  # run systems
- if(verbose) cat("\nRunning systems",sep = '')
+ if(verbose) cat("Running systems",sep = '')
 
  # run detect sdg
  system_hits = detect_sdg_systems(text = corpus,
@@ -98,7 +98,7 @@ detect_sdg = function(text,
  }
 
  # add lengths
- if(verbose) cat("\nObtaining text lengths",sep = '')
+ if(verbose) cat("Obtaining text lengths",sep = '')
  lens = table(corpus$tokens$doc_id)
  lens = tibble::tibble(document = factor(names(lens)),
  n_words = c(lens))

diff --git a/R/systems.R b/R/systems.R
@@ -92,6 +92,8 @@ detect_sdg_systems = function(text,
  hits[["SDGO"]] = detect_sdgo(corpus, sdgs)}
 
 
+ # newline
+ cat("\n")
  #combine lists to df
  hits <- dplyr::bind_rows(hits)