diff --git a/.travis.yml b/.travis.yml index 01bad41..bda8dff 100644 --- a/.travis.yml +++ b/.travis.yml @@ -8,12 +8,13 @@ git: repos: CRAN: https://cloud.r-project.org r_packages: + - devtools - httr - jsonlite - - testthat - - optparse - knitr + - optparse - roxygen2 + - testthat after_install: - cd rosetteApi warnings_are_errors: true diff --git a/examples/similar_terms.R b/examples/similar_terms.R index 683a1f0..1441f9c 100644 --- a/examples/similar_terms.R +++ b/examples/similar_terms.R @@ -1,7 +1,6 @@ source("../R/Api.R") -library(hash) library(jsonlite) -library("optparse") +library(optparse) option_list = list( make_option(c("-k", "--key"), action="store", default=NA, type='character', help="Rosette API key"), make_option(c("-u", "--url"), action="store", default=NA, type='character', @@ -10,7 +9,7 @@ opt_parser = OptionParser(option_list=option_list) opt = parse_args(opt_parser) similar_terms_data <- "spy" -opts <- hash() +opts <- list() opts[["resultLanguages"]] <- list("deu", "spa", "jpn") parameters <- list() @@ -23,4 +22,4 @@ if (is.na(opt$url)){ result <- api(opt$key, "semantics/similar", parameters, NULL, NULL, opt$url) } print(jsonlite::toJSON(result$header, pretty = TRUE)) -print(jsonlite::toJSON(result$content, pretty = TRUE)) \ No newline at end of file +print(jsonlite::toJSON(result$content, pretty = TRUE))