diff --git a/processing/wikiproc/DESCRIPTION b/processing/wikiproc/DESCRIPTION index 3d5ab21b9c3fabe88bc0bbee3ca5bd55b8718574..c190fcb41e3b55f9bacf5fbf964be0f51f705ec8 100644 --- a/processing/wikiproc/DESCRIPTION +++ b/processing/wikiproc/DESCRIPTION @@ -26,5 +26,7 @@ Imports: WikipediR, reticulate, cleanNLP, + magrittr, + utils Suggests: testthat diff --git a/processing/wikiproc/NAMESPACE b/processing/wikiproc/NAMESPACE index cec814d403dbe165ac9ea64126faec2e3c772a0e..ee345f0164191cbe78f260784ef00afedd185adf 100644 --- a/processing/wikiproc/NAMESPACE +++ b/processing/wikiproc/NAMESPACE @@ -9,3 +9,5 @@ export(get_no_of_spouses) export(init_nlp) importFrom(data.table,"%like%") importFrom(magrittr,"%>%") +importFrom(utils,URLdecode) +importFrom(utils,write.table) diff --git a/processing/wikiproc/R/import_packages.R b/processing/wikiproc/R/import_packages.R index 06a0402535bb8b1c9b12d458706eaaf3fba58584..4bfe0c837a006ae5a9e41a0168333a08a41c091a 100644 --- a/processing/wikiproc/R/import_packages.R +++ b/processing/wikiproc/R/import_packages.R @@ -7,4 +7,8 @@ #' @importFrom data.table %like% #' @importFrom magrittr %>% -NULL \ No newline at end of file +#' @importFrom utils URLdecode write.table +NULL + +# Make R CMD check happy +if(getRversion() >= "2.15.1") utils::globalVariables(c(".")) diff --git a/processing/wikiproc/man/get_birthplace.Rd b/processing/wikiproc/man/get_birthplace.Rd index 0db95fed89b30e3377511901914a0766b139ba81..75ecd8fadec493689ffc3ef110f4a5ad8ce7b30f 100644 --- a/processing/wikiproc/man/get_birthplace.Rd +++ b/processing/wikiproc/man/get_birthplace.Rd @@ -4,7 +4,7 @@ \alias{get_birthplace} \title{This script extracts Birthplace from physicist texts Try to get the infobox and extract the birthplace -If there is no infobox, 0 will be returned as +If there is no infobox, NA will be returned as birthplace is hard to extract from text} \usage{ get_birthplace(article) @@ -18,6 +18,6 @@ String with birthplace of the physicist|0 \description{ This script extracts Birthplace from physicist texts Try to get the infobox and extract the birthplace -If there is no infobox, 0 will be returned as +If there is no infobox, NA will be returned as birthplace is hard to extract from text } diff --git a/processing/wikiproc/man/get_no_of_spouses.Rd b/processing/wikiproc/man/get_no_of_spouses.Rd index 131c526cb56e28994b3295be2ada26343ecfb103..bd8a78e04af0871777efb49f16ea73d187fe0452 100644 --- a/processing/wikiproc/man/get_no_of_spouses.Rd +++ b/processing/wikiproc/man/get_no_of_spouses.Rd @@ -21,6 +21,6 @@ articles <- get_data() no.spouses <- get_no_of_spouses(articles$Text[54]) -no,spouses +no.spouses } }