Commit ⋅ munterfinger/hereR

Showing 1 of 5 files from the diff.

90.80% 100.00% ø

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 =

@@ -33,7 +34,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.")

@@ -42,6 +43,7 @@

Loading


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


@@ -67,7 +69,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) {

@@ -95,9 +97,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(),

@@ -127,6 +130,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,

@@ -142,7 +146,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

33	34		#' set_key("<YOUR API KEY>")
34	35		#'
35	36		#' locs <- geocode(address = poi$city, url_only = TRUE)
36		-	geocode <- function(address, sf = TRUE, url_only = FALSE, addresses) {
	37	+	geocode <- function(address, alternatives = FALSE, sf = TRUE, url_only = FALSE, addresses) {
37	38
38	39		if (!missing("addresses")) {
39	40		warning("'addresses' is deprecated, use 'address' instead.")

67	69		if (length(data) == 0) return(NULL)
68	70
69	71		# Extract information
70		-	geocoded <- .extract_geocoded(data, address)
	72	+	geocoded <- .extract_geocoded(data, address, alternatives)
71	73
72	74		# Create sf object
73	75		if (nrow(geocoded) > 0) {

95	97		}
96	98		}
97	99
98		-	.extract_geocoded <- function(data, address) {
	100	+	.extract_geocoded <- function(data, address, alternatives) {
99	101		template <- data.table::data.table(
100	102		id = numeric(),
	103	+	rank = numeric(),
101	104		address = character(),
102	105		type = character(),
103	106		street = character(),

127	130		}
128	131		result <- data.table::data.table(
129	132		id = ids[count],
	133	+	rank = seq_len(nrow(df$items)),
130	134		address = df$items$address$label,
131	135		type = df$items$resultType,
132	136		street = df$items$address$street,

142	146		lng_position = df$items$position$lng,
143	147		lat_position = df$items$position$lat
144	148		)
145		-	result[1, ]
	149	+	if (alternatives) {
	150	+	return(result)
	151	+	} else {
	152	+	return(result[1, ])
	153	+	}
146	154		})
147	155		), fill = TRUE
148	156		)

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 =

42	43
43	44		# Input checks
44	45		.check_addresses(address)
	46	+	.check_boolean(alternatives)
45	47		.check_boolean(sf)
46	48		.check_boolean(url_only)
47	49

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%

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