Update getContent.R

forkonlp · Nov 18, 2016 · c899038 · c899038
1 parent f8b8c71
commit c899038
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/getContent.R b/R/getContent.R
@@ -47,6 +47,7 @@ getContent <- function(url = url) {
         # content[c(-length(content),-(length(content)-1))]
         content <- paste0("<p>",content,"<p>")
         content <- paste0(content, collapse = " ")
+        content <- gsub("<p><p> ","",content)
 
         newsInfo <- data.frame(url = url, datetime = datetime, edittime = edittime, press = press, title = title, content = content, stringsAsFactors = F)
       } else {