R/relabel.R
In KateHyoung/UTDEventData: The University of Texas at Dallas Event Data Server
Defines functions
f4
f3
f2
f1
loadFormat
relabel
Documented in
f1
f2
f3
f4
loadFormat
relabel
#'A hiden function for relabeling query strings of one data format to the other
#'@param queryString a querying sentence of a data format
#'@param format a format returned
#'@importFrom jsonlite fromJSON
#'@keywords internal
#'@author Michael J. Shoemate
relabel = function(queryString, format) {
jsonFormat = loadFormat(format)
key = names(jsonFormat)
for (i in 1:length(jsonFormat)) {
if(grepl(key[[i]],queryString,fixed=TRUE) && !is.null(jsonFormat[[i]]$name))
queryString = gsub(key[[i]], jsonFormat[[i]]$name, queryString)
}
return(queryString)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@param format a format returned
#'@importFrom jsonlite fromJSON
#'@keywords internal
loadFormat <- function(format) {
if(format == "phoenix_rt")
return(f1())
else if(format== "icews")
return(f2())
else if(format=="cline")
return(f3())
else if(format=="terrier")
return(f4())
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
### phoenix_rt
f1 <- function() {
jsontext = jsonlite::fromJSON("[{
\"<event_id>\": {
\"name\": \"event_id\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"date8\",
\"format\": \"^\\\\d{8}$\"
},
\"<year>\": {
\"name\": \"year\",
\"format\": \"^\\\\d{4}$\"
},
\"<month>\": {
\"name\": \"month\",
\"format\": \"^([1-9]|1[0-2])$\"
},
\"<day>\": {
\"name\": \"day\",
\"format\": \"^([1-9]|[12]\\\\d|3[01])$\"
},
\"<src_country>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<src_actor>\": {
\"name\": \"src_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<src_agent>\": {
\"name\": \"src_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<src_other_agent>\": {
\"name\": \"src_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<tgt_country>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"tgt_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<tgt_agent>\": {
\"name\": \"tgt_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<tgt_other_agent>\": {
\"name\": \"tgt_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<root_code>\": {
\"name\": \"root_code\",
\"format\": \"^(|1)\\\\d$\"
},
\"<quad_class>\": {
\"name\": \"quad_class\",
\"format\": \"^[0-4]$\"
},
\"<goldstein>\": {
\"name\": \"goldstein\",
\"format\": \"^[+-]?\\\\d+\\\\.?\\\\d+$\"
},
\"<latitude>\": {
\"name\": \"latitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"longitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<geoname>\": {
\"name\": \"geoname\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<cameo>\": {
\"name\": \"code\",
\"format\": \"^\\\\d+$\"
},
\"<country_code>\": {
\"name\": \"country_code\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<admin_info>\": {
\"name\": \"admin_info\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<id>\": {
\"name\": \"id\",
\"format\": \".\"
},
\"<url>\": {
\"name\": \"url\",
\"format\": \".\"
},
\"<publisher>\": {
\"name\": \"source_text\",
\"format\": \".\"
}
}]")
#newjson = jsonlite::toJSON(jsontext, pretty = TRUE, auto_unbox = TRUE)
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
##### icews
f2 <- function() {
jsontext = jsonlite::fromJSON("{
\"<event_id>\": {
\"name\": \"Event ID\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"Event Date\",
\"format\": \"^\\\\d{4}-\\\\d{2}-\\\\d{2}$\"
},
\"<src_name>\": {
\"name\": \"Source Name\",
\"format\": \".*\"
},
\"<src_sectors>\": {
\"name\": \"Source Sectors\",
\"format\": \".*\"
},
\"<src_actor>\": {
\"name\": \"Source Country\",
\"format\": \".*\"
},
\"<tgt_name>\": {
\"name\": \"Target Name\",
\"format\": \".*\"
},
\"<tgt_sectors>\": {
\"name\": \"Target Sectors\",
\"format\": \".*\"
},
\"<tgt_actor>\": {
\"name\": \"Target Country\",
\"format\": \".\"
},
\"<goldstein>\": {
\"name\": \"Intensity\",
\"format\": \"^[+-]?\\\\d*\\\\.?\\\\d?+$\"
},
\"<latitude>\": {
\"name\": \"Latitude\",
\"format\": \"^(|NA|[+-]?\\\\d*\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"Longitude\",
\"format\": \"^(|NA|[+-]?\\\\d*\\\\.?\\\\d+)$\"
},
\"<city>\": {
\"name\": \"City\",
\"format\": \".*\"
},
\"<district>\": {
\"name\": \"District\",
\"format\": \".*\"
},
\"<province>\": {
\"name\": \"Province\",
\"format\": \".*\"
},
\"<country_code>\": {
\"name\": \"Country\",
\"format\": \".*\"
},
\"<cameo>\": {
\"name\": \"CAMEO Code\",
\"format\": \"^\\\\d+$\"
},
\"<event_text>\": {
\"name\": \"Event Text\",
\"format\": \".*\"
},
\"<id>\": {
\"name\": \"Story ID\",
\"format\": \".\"
},
\"<sentence_number>\": {
\"name\": \"Sentence Number\",
\"format\": \".*\"
},
\"<publisher>\": {
\"name\": \"Publisher\",
\"format\": \".*\"
}
}")
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
### Cline datasets
f3 <- function() {
jsontext = jsonlite::fromJSON("{
\"<country_code>\": {
\"name\": \"countryname\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<date>\": {
\"name\": \"story_date\",
\"format\": \"^(\\\\d{4}/\\\\d{2}/\\\\d{2})$\"
},
\"<src_actor>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<latitude>\": {
\"name\": \"lat\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"lon\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
}
}")
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
# for Terrier dataset
f4 <- function() {
jsontext = jsonlite::fromJSON("[{
\"<event_id>\": {
\"name\": \"event_id\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"date8\",
\"format\": \"^\\\\d{8}$\"
},
\"<year>\": {
\"name\": \"year\",
\"format\": \"^\\\\d{4}$\"
},
\"<month>\": {
\"name\": \"month\",
\"format\": \"^([1-9]|1[0-2])$\"
},
\"<day>\": {
\"name\": \"day\",
\"format\": \"^([1-9]|[12]\\\\d|3[01])$\"
},
\"<src_country>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<src_actor>\": {
\"name\": \"src_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<src_agent>\": {
\"name\": \"src_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<src_other_agent>\": {
\"name\": \"src_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<tgt_country>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"tgt_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<tgt_agent>\": {
\"name\": \"tgt_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<tgt_other_agent>\": {
\"name\": \"tgt_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<root_code>\": {
\"name\": \"root_code\",
\"format\": \"^(|1)\\\\d$\"
},
\"<quad_class>\": {
\"name\": \"quad_class\",
\"format\": \"^[0-4]$\"
},
\"<goldstein>\": {
\"name\": \"goldstein\",
\"format\": \"^[+-]?\\\\d+\\\\.?\\\\d+$\"
},
\"<latitude>\": {
\"name\": \"latitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"longitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<geoname>\": {
\"name\": \"geoname\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<cameo>\": {
\"name\": \"code\",
\"format\": \"^\\\\d+$\"
},
\"<country_code>\": {
\"name\": \"country_code\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<admin_info>\": {
\"name\": \"admin_info\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<id>\": {
\"name\": \"id\",
\"format\": \".\"
},
\"<url>\": {
\"name\": \"url\",
\"format\": \".\"
},
\"<publisher>\": {
\"name\": \"source_text\",
\"format\": \".\"
}
}]")
return(jsontext)
}
KateHyoung/UTDEventData documentation built on Nov. 16, 2022, 2:29 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions f4 f3 f2 f1 loadFormat relabel
Documented in f1 f2 f3 f4 loadFormat relabel
#'A hiden function for relabeling query strings of one data format to the other
#'@param queryString a querying sentence of a data format
#'@param format a format returned
#'@importFrom jsonlite fromJSON
#'@keywords internal
#'@author Michael J. Shoemate
relabel = function(queryString, format) {
jsonFormat = loadFormat(format)
key = names(jsonFormat)
for (i in 1:length(jsonFormat)) {
if(grepl(key[[i]],queryString,fixed=TRUE) && !is.null(jsonFormat[[i]]$name))
queryString = gsub(key[[i]], jsonFormat[[i]]$name, queryString)
}
return(queryString)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@param format a format returned
#'@importFrom jsonlite fromJSON
#'@keywords internal
loadFormat <- function(format) {
if(format == "phoenix_rt")
return(f1())
else if(format== "icews")
return(f2())
else if(format=="cline")
return(f3())
else if(format=="terrier")
return(f4())
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
### phoenix_rt
f1 <- function() {
jsontext = jsonlite::fromJSON("[{
\"<event_id>\": {
\"name\": \"event_id\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"date8\",
\"format\": \"^\\\\d{8}$\"
},
\"<year>\": {
\"name\": \"year\",
\"format\": \"^\\\\d{4}$\"
},
\"<month>\": {
\"name\": \"month\",
\"format\": \"^([1-9]|1[0-2])$\"
},
\"<day>\": {
\"name\": \"day\",
\"format\": \"^([1-9]|[12]\\\\d|3[01])$\"
},
\"<src_country>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<src_actor>\": {
\"name\": \"src_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<src_agent>\": {
\"name\": \"src_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<src_other_agent>\": {
\"name\": \"src_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<tgt_country>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"tgt_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<tgt_agent>\": {
\"name\": \"tgt_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<tgt_other_agent>\": {
\"name\": \"tgt_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<root_code>\": {
\"name\": \"root_code\",
\"format\": \"^(|1)\\\\d$\"
},
\"<quad_class>\": {
\"name\": \"quad_class\",
\"format\": \"^[0-4]$\"
},
\"<goldstein>\": {
\"name\": \"goldstein\",
\"format\": \"^[+-]?\\\\d+\\\\.?\\\\d+$\"
},
\"<latitude>\": {
\"name\": \"latitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"longitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<geoname>\": {
\"name\": \"geoname\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<cameo>\": {
\"name\": \"code\",
\"format\": \"^\\\\d+$\"
},
\"<country_code>\": {
\"name\": \"country_code\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<admin_info>\": {
\"name\": \"admin_info\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<id>\": {
\"name\": \"id\",
\"format\": \".\"
},
\"<url>\": {
\"name\": \"url\",
\"format\": \".\"
},
\"<publisher>\": {
\"name\": \"source_text\",
\"format\": \".\"
}
}]")
#newjson = jsonlite::toJSON(jsontext, pretty = TRUE, auto_unbox = TRUE)
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
##### icews
f2 <- function() {
jsontext = jsonlite::fromJSON("{
\"<event_id>\": {
\"name\": \"Event ID\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"Event Date\",
\"format\": \"^\\\\d{4}-\\\\d{2}-\\\\d{2}$\"
},
\"<src_name>\": {
\"name\": \"Source Name\",
\"format\": \".*\"
},
\"<src_sectors>\": {
\"name\": \"Source Sectors\",
\"format\": \".*\"
},
\"<src_actor>\": {
\"name\": \"Source Country\",
\"format\": \".*\"
},
\"<tgt_name>\": {
\"name\": \"Target Name\",
\"format\": \".*\"
},
\"<tgt_sectors>\": {
\"name\": \"Target Sectors\",
\"format\": \".*\"
},
\"<tgt_actor>\": {
\"name\": \"Target Country\",
\"format\": \".\"
},
\"<goldstein>\": {
\"name\": \"Intensity\",
\"format\": \"^[+-]?\\\\d*\\\\.?\\\\d?+$\"
},
\"<latitude>\": {
\"name\": \"Latitude\",
\"format\": \"^(|NA|[+-]?\\\\d*\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"Longitude\",
\"format\": \"^(|NA|[+-]?\\\\d*\\\\.?\\\\d+)$\"
},
\"<city>\": {
\"name\": \"City\",
\"format\": \".*\"
},
\"<district>\": {
\"name\": \"District\",
\"format\": \".*\"
},
\"<province>\": {
\"name\": \"Province\",
\"format\": \".*\"
},
\"<country_code>\": {
\"name\": \"Country\",
\"format\": \".*\"
},
\"<cameo>\": {
\"name\": \"CAMEO Code\",
\"format\": \"^\\\\d+$\"
},
\"<event_text>\": {
\"name\": \"Event Text\",
\"format\": \".*\"
},
\"<id>\": {
\"name\": \"Story ID\",
\"format\": \".\"
},
\"<sentence_number>\": {
\"name\": \"Sentence Number\",
\"format\": \".*\"
},
\"<publisher>\": {
\"name\": \"Publisher\",
\"format\": \".*\"
}
}")
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
### Cline datasets
f3 <- function() {
jsontext = jsonlite::fromJSON("{
\"<country_code>\": {
\"name\": \"countryname\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<date>\": {
\"name\": \"story_date\",
\"format\": \"^(\\\\d{4}/\\\\d{2}/\\\\d{2})$\"
},
\"<src_actor>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<latitude>\": {
\"name\": \"lat\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"lon\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
}
}")
return(jsontext)
}
#'A hiden function for relabeling query strings of one data format to the other
#'@importFrom jsonlite fromJSON
#'@keywords internal
# for Terrier dataset
f4 <- function() {
jsontext = jsonlite::fromJSON("[{
\"<event_id>\": {
\"name\": \"event_id\",
\"format\": \".\"
},
\"<date>\": {
\"name\": \"date8\",
\"format\": \"^\\\\d{8}$\"
},
\"<year>\": {
\"name\": \"year\",
\"format\": \"^\\\\d{4}$\"
},
\"<month>\": {
\"name\": \"month\",
\"format\": \"^([1-9]|1[0-2])$\"
},
\"<day>\": {
\"name\": \"day\",
\"format\": \"^([1-9]|[12]\\\\d|3[01])$\"
},
\"<src_country>\": {
\"name\": \"source\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<src_actor>\": {
\"name\": \"src_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<src_agent>\": {
\"name\": \"src_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<src_other_agent>\": {
\"name\": \"src_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<tgt_country>\": {
\"name\": \"target\",
\"format\": \"^(\\\\p{L}\\\\p{L}\\\\p{L})*$\"
},
\"<tgt_actor>\": {
\"name\": \"tgt_actor\",
\"format\": \"^\\\\p{L}\\\\p{L}\\\\p{L}$\"
},
\"<tgt_agent>\": {
\"name\": \"tgt_agent\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<tgt_other_agent>\": {
\"name\": \"tgt_other_agent\",
\"format\": \"^(|(\\\\p{L}\\\\p{L}\\\\p{L}(|;))*)$\"
},
\"<root_code>\": {
\"name\": \"root_code\",
\"format\": \"^(|1)\\\\d$\"
},
\"<quad_class>\": {
\"name\": \"quad_class\",
\"format\": \"^[0-4]$\"
},
\"<goldstein>\": {
\"name\": \"goldstein\",
\"format\": \"^[+-]?\\\\d+\\\\.?\\\\d+$\"
},
\"<latitude>\": {
\"name\": \"latitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<longitude>\": {
\"name\": \"longitude\",
\"format\": \"^(NA|[+-]?\\\\d?\\\\d\\\\.?\\\\d+)$\"
},
\"<geoname>\": {
\"name\": \"geoname\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<cameo>\": {
\"name\": \"code\",
\"format\": \"^\\\\d+$\"
},
\"<country_code>\": {
\"name\": \"country_code\",
\"format\": \"^(|\\\\p{L}\\\\p{L}\\\\p{L})$\"
},
\"<admin_info>\": {
\"name\": \"admin_info\",
\"format\": \"^(|[\\\\p{L}\\\\s]+)$\"
},
\"<id>\": {
\"name\": \"id\",
\"format\": \".\"
},
\"<url>\": {
\"name\": \"url\",
\"format\": \".\"
},
\"<publisher>\": {
\"name\": \"source_text\",
\"format\": \".\"
}
}]")
return(jsontext)
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.