diff --git a/DESCRIPTION b/DESCRIPTION index dfc92b3..e3cf3aa 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -30,7 +30,7 @@ Description: Provides an interface to the public APIs of the European and users to retrieve EPPO data by accessing specific services and datasets. The package also includes utilities for data wrangling, including the integration of taxonomy with rank information. See - <[https://data.eppo.int/apis/]https://data.eppo.int/apis/> for more details. + for more details. License: EUPL-1.2 URL: https://openefsa.github.io/eppoFindeR/ BugReports: https://github.com/openefsa/eppoFindeR/issues diff --git a/R/buildEndpoint.R b/R/buildEndpoint.R index 4dbe9dc..2fa6e35 100644 --- a/R/buildEndpoint.R +++ b/R/buildEndpoint.R @@ -24,19 +24,6 @@ #' @importFrom checkmate assert_string #' @importFrom glue glue #' -#' @examplesIf FALSE -#' # Basic endpoint. -#' endpoint_ <- .buildEndpoint(basePath = "/taxons/list") -#' -#' # Endpoint with resource identifier. -#' endpoint_ <- .buildEndpoint(basePath = "/taxons/taxon", code = "BEMITA") -#' -#' # Endpoint with code and service. -#' endpoint_ <- .buildEndpoint( -#' basePath = "/taxons/taxon", -#' code = "BEMITA", -#' service = "names") -#' #' @keywords internal #' @noRd #' diff --git a/R/buildReportingServicePath.R b/R/buildReportingServicePath.R index bb60d7e..8c8ba6e 100644 --- a/R/buildReportingServicePath.R +++ b/R/buildReportingServicePath.R @@ -21,15 +21,6 @@ #' #' @importFrom checkmate assert_string assert_list #' @importFrom glue glue -#' -#' @examplesIf FALSE -#' # Fetch reporting data about the article with ID = 10. -#' reportingServicePath_ <- .buildReportingServicePath( -#' service = "article", -#' params = list( -#' article_id = 10 -#' ) -#' ) #' #' @keywords internal #' @noRd diff --git a/R/buildRequest.R b/R/buildRequest.R index 77587c1..ad3b732 100644 --- a/R/buildRequest.R +++ b/R/buildRequest.R @@ -33,16 +33,6 @@ #' @importFrom checkmate assert_string assert_vector assert_list #' @importFrom httr2 request req_method req_headers req_error resp_status #' req_url_query -#' -#' @examplesIf FALSE -#' url_ <- "https://api.eppo.int/gd/v2/taxon/BEMITA" -#' apiKey_ <- "YOUR_API_KEY" -#' doNotFailOn_ <- c(200, 400, 401, 403, 404, 429, 500) -#' -#' request_ <- .buildRequest( -#' url = url_, -#' apiKey = apiKey_, -#' doNotFailOn = doNotFailOn_) #' #' @keywords internal #' @noRd diff --git a/R/checkServices.R b/R/checkServices.R index 1c8af0f..7d2a51b 100644 --- a/R/checkServices.R +++ b/R/checkServices.R @@ -14,10 +14,6 @@ #' #' @importFrom cli cli_abort #' -#' @examplesIf FALSE -#' .checkServices(c("a", "b"), c("a", "b", "c")) # Valid. -#' .checkServices(c("a", "x"), c("a", "b", "c")) # Error. -#' #' @keywords internal #' @noRd #' diff --git a/R/country.R b/R/country.R index c0667eb..71c50ff 100644 --- a/R/country.R +++ b/R/country.R @@ -35,7 +35,8 @@ #' @importFrom checkmate assert_vector assert_string #' @importFrom purrr map set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get all information about France. #' countryData_ <- country(isoCodes = c("FR")) #' @@ -44,6 +45,7 @@ #' #' # Get basic data about France and Italy. #' countryData_ <- country(isoCodes = c("FR", "IT"), services = c("overview")) +#' } #' #' @export #' diff --git a/R/enrichResponse.R b/R/enrichResponse.R index 7935201..4ba47ee 100644 --- a/R/enrichResponse.R +++ b/R/enrichResponse.R @@ -13,13 +13,6 @@ #' queried, and `queried_url`, the URL used for the API request. #' #' @importFrom checkmate assert assert_string check_list check_data_frame -#' -#' @examplesIf FALSE -#' data_ <- list(name = "example", value = 123) -#' -#' enrichedData_ <- .enrichResponse( -#' responseData = data_, -#' url = "https://example.org") #' #' @keywords internal #' @noRd diff --git a/R/fetchService.R b/R/fetchService.R index 533a54b..6ede9a8 100644 --- a/R/fetchService.R +++ b/R/fetchService.R @@ -24,15 +24,6 @@ #' service. #' #' @importFrom checkmate assert_string assert_list -#' -#' @examplesIf FALSE -#' # Fetch country information about France. -#' serviceData_ <- .fetchService( -#' basePath = "/country", -#' code = "FR", -#' service = "overview", -#' apiKey = "YOUR_API_KEY" -#' ) #' #' @keywords internal #' @noRd diff --git a/R/general.R b/R/general.R index ae53cc6..5e21de6 100644 --- a/R/general.R +++ b/R/general.R @@ -22,9 +22,11 @@ #' @importFrom checkmate assert_vector assert_string #' @importFrom purrr map set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get information about system health status. #' generalData_ <- general() +#' } #' #' @export #' diff --git a/R/groupByServices.R b/R/groupByServices.R index 5170607..cc8e442 100644 --- a/R/groupByServices.R +++ b/R/groupByServices.R @@ -18,14 +18,6 @@ #' @importFrom purrr map imap #' @importFrom checkmate assert_list #' @importFrom dplyr bind_rows relocate -#' -#' @examplesIf FALSE -#' nestedList_ <- list( -#' Group1 = list(a = tibble(x = 1:2), b = tibble(y = 3:4)), -#' Group2 = list(a = tibble(x = 5:6), b = tibble(y = 7:8)) -#' ) -#' -#' groupedData_ <- .groupByServices(datasets = nestedList_) #' #' @keywords internal #' @noRd diff --git a/R/handleHTTPErrors.R b/R/handleHTTPErrors.R index 347e03c..9248358 100644 --- a/R/handleHTTPErrors.R +++ b/R/handleHTTPErrors.R @@ -18,11 +18,6 @@ #' @importFrom checkmate assert_class #' @importFrom httr2 resp_status resp_body_json #' @importFrom cli cli_abort -#' -#' @examplesIf FALSE -#' response_ <- req_perform(request("https://example.org/")) -#' -#' .handleHTTPErrors(response = response_) #' #' @keywords internal #' @noRd diff --git a/R/mergeBatch.R b/R/mergeBatch.R index ccca70f..ca718db 100644 --- a/R/mergeBatch.R +++ b/R/mergeBatch.R @@ -16,16 +16,6 @@ #' parent list names. #' #' @importFrom checkmate assert_list assert_string -#' -#' @examplesIf FALSE -#' nestedList_ <- list( -#' Group1 = list(a = data.frame(x = 1:2), b = data.frame(y = 3:4)), -#' Group2 = list(a = data.frame(x = 5:6), b = data.frame(y = 7:8)) -#' ) -#' -#' mergedData_ <- .mergeBatch( -#' datasets = nestedList_, -#' parentColumnName = "group") #' #' @keywords internal #' @noRd diff --git a/R/parseResponse.R b/R/parseResponse.R index e862e5b..63d32b2 100644 --- a/R/parseResponse.R +++ b/R/parseResponse.R @@ -15,11 +15,6 @@ #' @importFrom jsonlite fromJSON #' @importFrom httr2 resp_body_string #' @importFrom cli cli_abort -#' -#' @examplesIf FALSE -#' response_ <- req_perform(request("https://example.org/")) -#' -#' responseData_ <- .parseResponse(response = response_) #' #' @keywords internal #' @noRd diff --git a/R/performRequest.R b/R/performRequest.R index eb445dc..557d8f9 100644 --- a/R/performRequest.R +++ b/R/performRequest.R @@ -14,11 +14,6 @@ #' @importFrom httr2 req_perform #' @importFrom cli cli_abort #' -#' @examplesIf FALSE -#' request_ <- request("https://example.org/") -#' -#' response_ <- .performRequest(request = request_) -#' #' @keywords internal #' @noRd #' diff --git a/R/query.R b/R/query.R index 44941d8..605ef95 100644 --- a/R/query.R +++ b/R/query.R @@ -46,13 +46,6 @@ #' connection issue triggers an informative error. #' #' @importFrom checkmate assert_string assert_list -#' -#' @examplesIf FALSE -#' # Get basic information about Bemisia tabaci. -#' data_ <- .query(endpoint = "/taxon/BEMITA", apiKey = "YOUR_API_KEY") -#' -#' # Get all names about Aphis pomi. -#' data_ <- .query(endpoint = "/taxon/APHIPO/names", apiKey = "YOUR_API_KEY") #' #' @keywords internal #' @noRd diff --git a/R/rebuildReferences.R b/R/rebuildReferences.R index 04f65d8..338d8d2 100644 --- a/R/rebuildReferences.R +++ b/R/rebuildReferences.R @@ -20,19 +20,6 @@ #' The purpose of this function is to harmonize the structure of the various #' Reference endpoints, ensuring that the final output from `references()` is #' consistently formatted and ready for use. -#' -#' @examplesIf FALSE -#' # ... -#' referencesData_ <- map(services, ~ .fetchService( -#' basePath = "/references", -#' apiKey = apiKey, -#' service = .x)) |> -#' set_names(services) -#' -#' # Rebuild data extracted from the Reference endpoint. -#' rebuiltReferencesData_ <- .rebuildReferences( -#' referencesData = referencesData_) -#' # ... #' #' @keywords internal #' @noRd diff --git a/R/rebuildTaxons.R b/R/rebuildTaxons.R index 1e4c2df..f15eb62 100644 --- a/R/rebuildTaxons.R +++ b/R/rebuildTaxons.R @@ -18,11 +18,6 @@ #' exclusively on that element. It extracts the `queried_on` and `queried_url` #' fields from the raw response, replaces the `data` element with the actual #' content, and then converts it into a tibble using `.valuesToTibbles()`. -#' -#' @examplesIf FALSE -#' taxonsData_ <- taxons() -#' -#' rebuiltTaxonData_ <- .rebuildTaxons(taxonsData = taxonsData_) #' #' @keywords internal #' @noRd diff --git a/R/references.R b/R/references.R index fc8b0df..a55e8d4 100644 --- a/R/references.R +++ b/R/references.R @@ -24,7 +24,8 @@ #' @importFrom checkmate assert_vector assert_string #' @importFrom purrr map set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get all information. #' referencesData_ <- references() #' @@ -33,6 +34,7 @@ #' #' # Get information about EPPO list codes and labels and countries. #' referencesData_ <- references(services = c("qList", "countries")) +#' } #' #' @export #' diff --git a/R/reportingService.R b/R/reportingService.R index 21830be..3e5318a 100644 --- a/R/reportingService.R +++ b/R/reportingService.R @@ -30,7 +30,8 @@ #' @importFrom checkmate assert_vector assert_list assert_string assert #' @importFrom purrr map2 set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get the list of reporting service issues. #' reportingServiceData_ <- reportingService( #' services = c("list"), @@ -55,14 +56,10 @@ #' reportingServiceData_ <- reportingService( #' services = c("reporting", "article"), #' params = list( -#' reporting = list( -#' reporting_id = 10 -#' ), -#' article = list( -#' article_id = 234 -#' ) -#' ) -#' ) +#' reporting = list(reporting_id = 10), +#' article = list(article_id = 234) +#' )) +#' } #' #' @export #' diff --git a/R/reshapeCountriesStates.R b/R/reshapeCountriesStates.R index ff889cc..5d29fdc 100644 --- a/R/reshapeCountriesStates.R +++ b/R/reshapeCountriesStates.R @@ -15,14 +15,6 @@ #' @importFrom checkmate assert_list #' @importFrom dplyr mutate relocate bind_rows #' @importFrom purrr imap -#' -#' @examplesIf FALSE -#' # rebuildReferences.R. -#' # ... -#' if (.y == "countriesStates") { -#' .reshapeCountriesStates(countriesStatesData = .x) -#' } -#' # ... #' #' @keywords internal #' @noRd diff --git a/R/rppo.R b/R/rppo.R index cda4804..089c455 100644 --- a/R/rppo.R +++ b/R/rppo.R @@ -28,7 +28,8 @@ #' @importFrom checkmate assert_vector assert_string #' @importFrom purrr map set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get all information about the European and Mediterranean Plant Protection #' # Organisation. #' rppoData_ <- rppo(rppoCodes = c("9A")) @@ -40,6 +41,7 @@ #' # Get basic data about European and Mediterranean Plant Protection #' # Organisation and the European Union. #' rppoData_ <- rppo(rppoCodes = c("9A", "9L"), services = c("overview")) +#' } #' #' @export #' diff --git a/R/taxon.R b/R/taxon.R index 6d4c81c..cda7137 100644 --- a/R/taxon.R +++ b/R/taxon.R @@ -37,7 +37,8 @@ #' @importFrom checkmate assert_vector assert_string #' @importFrom purrr map set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get all information about Bemisia tabaci. #' taxonData_ <- taxon(eppoCodes = c("BEMITA")) #' @@ -49,6 +50,7 @@ #' taxonData_ <- taxon( #' eppoCodes = c("BEMITA", "GOSHI"), #' services = c("taxonomy", "categorization")) +#' } #' #' @export #' diff --git a/R/taxons.R b/R/taxons.R index 8559e05..bca5d95 100644 --- a/R/taxons.R +++ b/R/taxons.R @@ -29,7 +29,8 @@ #' @importFrom checkmate assert_vector assert_list assert_string assert #' @importFrom purrr map2 set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get the list of taxons. #' taxonsData_ <- taxons() #' @@ -40,9 +41,8 @@ #' limit = 5, #' offset = 1, #' orderAsc = FALSE, -#' orderBy = "eppocode" -#' ) -#' )) +#' orderBy = "eppocode"))) +#' } #' #' @export #' diff --git a/R/tools.R b/R/tools.R index d15802c..d46fca5 100644 --- a/R/tools.R +++ b/R/tools.R @@ -29,14 +29,14 @@ #' @importFrom checkmate assert_vector assert_list assert_string assert #' @importFrom purrr map2 set_names #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Get the EPPO codes associated to the name Bemisia tabaci. #' toolsData_ <- tools(params = list( #' name2codes = list( #' onlyPreferred = FALSE, -#' name = "Bemisia tabaci" -#' ) -#' )) +#' name = "Bemisia tabaci"))) +#' } #' #' @export #' diff --git a/R/uniformTaxonomy.R b/R/uniformTaxonomy.R index 1bcbced..893b80a 100644 --- a/R/uniformTaxonomy.R +++ b/R/uniformTaxonomy.R @@ -22,12 +22,14 @@ #' @importFrom checkmate assert_data_frame assert_names assert_true #' @importFrom tibble tibble #' -#' @examplesIf FALSE +#' @examples +#' \dontrun{ #' # Retrieve taxonomy data from the EPPO service. #' taxonData_ <- taxon(eppoCodes = c("BEMITA"), services = c("taxonomy")) #' #' # Create a uniform taxonomy with all ranks. #' taxonomyData_ <- uniformTaxonomy(taxonomyData = taxonData_$taxonomy) +#' } #' #' @export #' diff --git a/R/valueToTibble.R b/R/valueToTibble.R index e16d9c0..97898a9 100644 --- a/R/valueToTibble.R +++ b/R/valueToTibble.R @@ -8,12 +8,6 @@ #' @return A tibble containing the data of the original element. #' #' @importFrom tibble as_tibble -#' -#' @examplesIf FALSE -#' # Transform a list to tibble. -#' data_ <- .valueToTibble( -#' value = list(x = 1:3, y = 4:6) -#' ) #' #' @keywords internal #' @noRd diff --git a/R/valuesToTibbles.R b/R/valuesToTibbles.R index 1712f1c..26f72c8 100644 --- a/R/valuesToTibbles.R +++ b/R/valuesToTibbles.R @@ -9,13 +9,6 @@ #' #' @importFrom checkmate assert_list #' @importFrom purrr map -#' -#' @examplesIf FALSE -#' # Transform a list to tibble. -#' data_ <- .valuesToTibbles(values = list( -#' a = list(x = 1:3, y = 4:6), -#' b = list(x = 7:9, y = 10:12) -#' )) #' #' @keywords internal #' @noRd diff --git a/R/valuesToTibblesBatch.R b/R/valuesToTibblesBatch.R index decb2f8..ac6b81f 100644 --- a/R/valuesToTibblesBatch.R +++ b/R/valuesToTibblesBatch.R @@ -16,16 +16,6 @@ #' @importFrom checkmate assert_list assert_string #' @importFrom dplyr mutate relocate #' @importFrom purrr imap map -#' -#' @examplesIf FALSE -#' nestedList_ <- list( -#' Group1 = list(a = data.frame(x = 1:2), b = data.frame(y = 3:4)), -#' Group2 = list(a = data.frame(x = 5:6), b = data.frame(y = 7:8)) -#' ) -#' -#' data_ <- .valuesToTibblesBatch( -#' nestedValues = nestedList_, -#' parentColumnName = "group") #' #' @keywords internal #' @noRd diff --git a/man/country.Rd b/man/country.Rd index 67169dd..914d12b 100644 --- a/man/country.Rd +++ b/man/country.Rd @@ -46,7 +46,7 @@ ISO code in \code{isoCodes}, the function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get all information about France. countryData_ <- country(isoCodes = c("FR")) @@ -55,5 +55,6 @@ countryData_ <- country(isoCodes = c("FR"), services = c("categorization")) # Get basic data about France and Italy. countryData_ <- country(isoCodes = c("FR", "IT"), services = c("overview")) -\dontshow{\}) # examplesIf} +} + } diff --git a/man/eppoFindeR-package.Rd b/man/eppoFindeR-package.Rd index b3f09c6..c22f230 100644 --- a/man/eppoFindeR-package.Rd +++ b/man/eppoFindeR-package.Rd @@ -8,7 +8,7 @@ \description{ \if{html}{\figure{logo.png}{options: style='float: right' alt='logo' width='120'}} -Provides an interface to the public APIs of the European and Mediterranean Plant Protection Organization (EPPO) database. It enables users to retrieve EPPO data by accessing specific services and datasets. The package also includes utilities for data wrangling, including the integration of taxonomy with rank information. See <[https://data.eppo.int/apis/]https://data.eppo.int/apis/> for more details. +Provides an interface to the public APIs of the European and Mediterranean Plant Protection Organization (EPPO) database. It enables users to retrieve EPPO data by accessing specific services and datasets. The package also includes utilities for data wrangling, including the integration of taxonomy with rank information. See \url{https://data.eppo.int/apis/} for more details. } \seealso{ Useful links: diff --git a/man/general.Rd b/man/general.Rd index fd5ad20..2ab168a 100644 --- a/man/general.Rd +++ b/man/general.Rd @@ -29,8 +29,9 @@ REST API. The function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get information about system health status. generalData_ <- general() -\dontshow{\}) # examplesIf} +} + } diff --git a/man/references.Rd b/man/references.Rd index ce2f986..7d93d2d 100644 --- a/man/references.Rd +++ b/man/references.Rd @@ -35,7 +35,7 @@ via REST API. The function sequentially queries all specified \code{services} an returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get all information. referencesData_ <- references() @@ -44,5 +44,6 @@ referencesData_ <- references(services = c("distributionStatus")) # Get information about EPPO list codes and labels and countries. referencesData_ <- references(services = c("qList", "countries")) -\dontshow{\}) # examplesIf} +} + } diff --git a/man/reportingService.Rd b/man/reportingService.Rd index 5a13cf0..d11a1cd 100644 --- a/man/reportingService.Rd +++ b/man/reportingService.Rd @@ -41,7 +41,7 @@ REST API. The function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get the list of reporting service issues. reportingServiceData_ <- reportingService( services = c("list"), @@ -66,13 +66,9 @@ reportingServiceData_ <- reportingService( reportingServiceData_ <- reportingService( services = c("reporting", "article"), params = list( - reporting = list( - reporting_id = 10 - ), - article = list( - article_id = 234 - ) - ) -) -\dontshow{\}) # examplesIf} + reporting = list(reporting_id = 10), + article = list(article_id = 234) + )) +} + } diff --git a/man/rppo.Rd b/man/rppo.Rd index f40c249..17bbe5a 100644 --- a/man/rppo.Rd +++ b/man/rppo.Rd @@ -39,7 +39,7 @@ RPPO code in \code{rppoCodes}, the function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get all information about the European and Mediterranean Plant Protection # Organisation. rppoData_ <- rppo(rppoCodes = c("9A")) @@ -51,5 +51,6 @@ rppoData_ <- rppo(rppoCodes = c("9A"), services = c("categorization")) # Get basic data about European and Mediterranean Plant Protection # Organisation and the European Union. rppoData_ <- rppo(rppoCodes = c("9A", "9L"), services = c("overview")) -\dontshow{\}) # examplesIf} +} + } diff --git a/man/taxon.Rd b/man/taxon.Rd index 1039ed6..e458fe5 100644 --- a/man/taxon.Rd +++ b/man/taxon.Rd @@ -50,7 +50,7 @@ EPPO code in \code{eppoCodes}, the function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get all information about Bemisia tabaci. taxonData_ <- taxon(eppoCodes = c("BEMITA")) @@ -62,5 +62,6 @@ taxonData_ <- taxon(eppoCodes = c("BEMITA"), services = c("names")) taxonData_ <- taxon( eppoCodes = c("BEMITA", "GOSHI"), services = c("taxonomy", "categorization")) -\dontshow{\}) # examplesIf} +} + } diff --git a/man/taxons.Rd b/man/taxons.Rd index 1815754..09f1f15 100644 --- a/man/taxons.Rd +++ b/man/taxons.Rd @@ -41,7 +41,7 @@ REST API. The function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get the list of taxons. taxonsData_ <- taxons() @@ -52,8 +52,7 @@ taxonsData_ <- taxons(params = list( limit = 5, offset = 1, orderAsc = FALSE, - orderBy = "eppocode" - ) -)) -\dontshow{\}) # examplesIf} + orderBy = "eppocode"))) +} + } diff --git a/man/tools.Rd b/man/tools.Rd index 682be32..26ff3c6 100644 --- a/man/tools.Rd +++ b/man/tools.Rd @@ -40,13 +40,12 @@ REST API. The function sequentially queries all specified \code{services} and returns the extracted data through a list of dataframes. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Get the EPPO codes associated to the name Bemisia tabaci. toolsData_ <- tools(params = list( name2codes = list( onlyPreferred = FALSE, - name = "Bemisia tabaci" - ) -)) -\dontshow{\}) # examplesIf} + name = "Bemisia tabaci"))) +} + } diff --git a/man/uniformTaxonomy.Rd b/man/uniformTaxonomy.Rd index 86d64ab..8d7272d 100644 --- a/man/uniformTaxonomy.Rd +++ b/man/uniformTaxonomy.Rd @@ -29,11 +29,12 @@ since the rank order is fully defined by the internal reference list. The column \code{queried_eppo_code} NA values are filled with the right code. } \examples{ -\dontshow{if (FALSE) withAutoprint(\{ # examplesIf} +\dontrun{ # Retrieve taxonomy data from the EPPO service. taxonData_ <- taxon(eppoCodes = c("BEMITA"), services = c("taxonomy")) # Create a uniform taxonomy with all ranks. taxonomyData_ <- uniformTaxonomy(taxonomyData = taxonData_$taxonomy) -\dontshow{\}) # examplesIf} +} + }