Skip to content
Snippets Groups Projects
Commit 3c5b7ffc authored by David Fuhry's avatar David Fuhry :fist:
Browse files

Merge branch '47-add-imports-from-utils' into 'master'

Resolve "Add imports from utils"

Closes #47

See merge request !46
parents 10013fb8 1fc09a56
No related branches found
No related tags found
1 merge request!46Resolve "Add imports from utils"
...@@ -26,5 +26,7 @@ Imports: ...@@ -26,5 +26,7 @@ Imports:
WikipediR, WikipediR,
reticulate, reticulate,
cleanNLP, cleanNLP,
magrittr,
utils
Suggests: Suggests:
testthat testthat
...@@ -9,3 +9,5 @@ export(get_no_of_spouses) ...@@ -9,3 +9,5 @@ export(get_no_of_spouses)
export(init_nlp) export(init_nlp)
importFrom(data.table,"%like%") importFrom(data.table,"%like%")
importFrom(magrittr,"%>%") importFrom(magrittr,"%>%")
importFrom(utils,URLdecode)
importFrom(utils,write.table)
...@@ -7,4 +7,8 @@ ...@@ -7,4 +7,8 @@
#' @importFrom data.table %like% #' @importFrom data.table %like%
#' @importFrom magrittr %>% #' @importFrom magrittr %>%
NULL #' @importFrom utils URLdecode write.table
\ No newline at end of file NULL
# Make R CMD check happy
if(getRversion() >= "2.15.1") utils::globalVariables(c("."))
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
\alias{get_birthplace} \alias{get_birthplace}
\title{This script extracts Birthplace from physicist texts \title{This script extracts Birthplace from physicist texts
Try to get the infobox and extract the birthplace 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} birthplace is hard to extract from text}
\usage{ \usage{
get_birthplace(article) get_birthplace(article)
...@@ -18,6 +18,6 @@ String with birthplace of the physicist|0 ...@@ -18,6 +18,6 @@ String with birthplace of the physicist|0
\description{ \description{
This script extracts Birthplace from physicist texts This script extracts Birthplace from physicist texts
Try to get the infobox and extract the birthplace 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 birthplace is hard to extract from text
} }
...@@ -21,6 +21,6 @@ articles <- get_data() ...@@ -21,6 +21,6 @@ articles <- get_data()
no.spouses <- get_no_of_spouses(articles$Text[54]) no.spouses <- get_no_of_spouses(articles$Text[54])
no,spouses no.spouses
} }
} }
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment