Commit ⋅ munterfinger/hereR

Showing 1 of 5 files from the diff.

90.80% 100.00% +0.56%

R/geocode.R changed.

Other files ignored by Codecov

NEWS.md has changed.

tests/testthat/test-geocode.R has changed.

DESCRIPTION has changed.

man/geocode.Rd has changed.

@@ -6,6 +6,7 @@

Loading

#' \href{https://developer.here.com/documentation/geocoding-search-api/dev_guide/topics/endpoint-geocode-brief.html}{HERE Geocoder API: Geocode}
#'
#' @param address character, addresses to geocode.
#' @param alternatives boolean, return also alternative results (\code{default = FALSE})?
#' @param sf boolean, return an \code{sf} object (\code{default = TRUE}) or a
#'   \code{data.frame}?
#' @param url_only boolean, only return the generated URLs (\code{default =

@@ -25,7 +26,7 @@

Loading

#' set_key("<YOUR API KEY>")
#'
#' locs <- geocode(address = poi$city, url_only = TRUE)
geocode <- function(address, sf = TRUE, url_only = FALSE, addresses) {
geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE, addresses) {

  if (!missing("addresses")) {
    warning("'addresses' is deprecated, use 'address' instead.")

@@ -34,6 +35,7 @@

Loading


  # Input checks
  .check_addresses(address)
  .check_boolean(alternatives)
  .check_boolean(sf)
  .check_boolean(url_only)


@@ -59,7 +61,7 @@

Loading

  if (length(data) == 0) return(NULL)

  # Extract information
  geocoded <- .extract_geocoded(data, address)
  geocoded <- .extract_geocoded(data, address, alternatives)

  # Create sf object
  if (nrow(geocoded) > 0) {

@@ -87,9 +89,10 @@

Loading

  }
}

.extract_geocoded <- function(data, address) {
.extract_geocoded <- function(data, address, alternatives) {
  template <- data.table::data.table(
    id = numeric(),
    rank = numeric(),
    address = character(),
    type = character(),
    street = character(),

@@ -119,6 +122,7 @@

Loading

             }
             result <- data.table::data.table(
               id = ids[count],
               rank = seq_len(nrow(df$items)),
               address = df$items$address$label,
               type = df$items$resultType,
               street = df$items$address$street,

@@ -134,7 +138,11 @@

Loading

               lng_position = df$items$position$lng,
               lat_position = df$items$position$lat
             )
             result[1, ]
             if (alternatives) {
               return(result)
             } else {
               return(result[1, ])
             }
           })
    ), fill = TRUE
  )

Files		•	•	•	Coverage
R	1,250	1,160	0	90	92.80%
Project Totals (16 files)	1,250	1,160	0	90	92.80%

View CI Build Download

comment: false

coverage:
  status:
    project:
      default:
        target: auto
        threshold: 1%
    patch:
      default:
        target: auto
        threshold: 1%

Read the docs

Interact now

The inner-most circle is the entire project, moving away from the center are folders then, finally, a single file. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

The top section represents the entire project. Proceeding with folders and finally individual files. The size and color of each slice is representing the number of statements and the coverage, respectively.

SVG

Each block represents a single file in the project. The size and color of each block is represented by the number of statements and the coverage, respectively.

SVG

Learn more about the coverage sunburst graph

25	26		#' set_key("<YOUR API KEY>")
26	27		#'
27	28		#' locs <- geocode(address = poi$city, url_only = TRUE)
28		-	geocode <- function(address, sf = TRUE, url_only = FALSE, addresses) {
	29	+	geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE, addresses) {
29	30
30	31		if (!missing("addresses")) {
31	32		warning("'addresses' is deprecated, use 'address' instead.")

119	122		}
120	123		result <- data.table::data.table(
121	124		id = ids[count],
	125	+	rank = seq_len(nrow(df$items)),
122	126		address = df$items$address$label,
123	127		type = df$items$resultType,
124	128		street = df$items$address$street,

134	138		lng_position = df$items$position$lng,
135	139		lat_position = df$items$position$lat
136	140		)
137		-	result[1, ]
	141	+	if (alternatives) {
	142	+	return(result)
	143	+	} else {
	144	+	return(result[1, ])
	145	+	}
138	146		})
139	147		), fill = TRUE
140	148		)

Navigation	Overlay
`t` Navigate files	`h` Toggle hits
`y` Change url to tip of branch	`m` Toggle misses
`b / v` Jump to prev/next hit line	`p` Toggle partial
`z / x` Jump to prev/next missed or partial line	`1..9` Toggle flags
`shift + o` Open current page in GitHub	`a` Toggle all on
`/ or ?` Show keyboard shortcuts dialog	`c` Toggle context lines or commits

6	6		#' \href{https://developer.here.com/documentation/geocoding-search-api/dev_guide/topics/endpoint-geocode-brief.html}{HERE Geocoder API: Geocode}
7	7		#'
8	8		#' @param address character, addresses to geocode.
	9	+	#' @param alternatives boolean, return also alternative results (\code{default = FALSE})?
9	10		#' @param sf boolean, return an \code{sf} object (\code{default = TRUE}) or a
10	11		#' \code{data.frame}?
11	12		#' @param url_only boolean, only return the generated URLs (\code{default =

34	35
35	36		# Input checks
36	37		.check_addresses(address)
	38	+	.check_boolean(alternatives)
37	39		.check_boolean(sf)
38	40		.check_boolean(url_only)
39	41

59	61		if (length(data) == 0) return(NULL)
60	62
61	63		# Extract information
62		-	geocoded <- .extract_geocoded(data, address)
	64	+	geocoded <- .extract_geocoded(data, address, alternatives)
63	65
64	66		# Create sf object
65	67		if (nrow(geocoded) > 0) {

87	89		}
88	90		}
89	91
90		-	.extract_geocoded <- function(data, address) {
	92	+	.extract_geocoded <- function(data, address, alternatives) {
91	93		template <- data.table::data.table(
92	94		id = numeric(),
	95	+	rank = numeric(),
93	96		address = character(),
94	97		type = character(),
95	98		street = character(),

1	comment: false
2
3	coverage:
4	status:
5	project:
6	default:
7	target: auto
8	threshold: 1%
9	patch:
10	default:
11	target: auto
12	threshold: 1%