diff --git a/citavi_export.R b/citavi_export.R index 73d9c377478a4b77a6cb96a80b5e984226a4e86d..9f4579c780b345b0e67473fc592d3e27c811cc47 100644 --- a/citavi_export.R +++ b/citavi_export.R @@ -51,11 +51,11 @@ pdf_to_text_file <- function(id, file_path) { } # read pdf into string - #readtext_result <- readtext::readtext(file_path, encoding = "UTF-8") + readtext_result <- readtext::readtext(file_path, encoding = "UTF-8") # save string into file with filepath result/<id>.txt - #file_name <- paste0(dirname(filepath), "/result/", id, ".txt") - #readr::write_file(readtext_result$text, file_name) + file_name <- paste0(dirname(filepath), "/result/", id, ".txt") + readr::write_file(readtext_result$text, file_name) return(TRUE)