-
Notifications
You must be signed in to change notification settings - Fork 0
/
delete.R
48 lines (45 loc) · 1.46 KB
/
delete.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
#' Delete Layer from an Existing Map
#'
#' @param map_id map identifier from url, from `https://felt.com/map/Readable-Name-map_id`
#' @param layer_id layer identifier, as returned by `felt_get_map_layers()` or `felt_add_map_layers()`
#'
#' @return response code
#' @export
#'
#' @concept edits
#'
#' @examplesIf has_felt_key()
#' layer <- felt_add_map_layers('TBI8sDkmQjuK2GX9CSiHiUA',
#' 'test', fs::path_package('feltr', 'towns.geojson'))
#' felt_delete_map_layer(map_id = 'Rockland-2024-Districts-TBI8sDkmQjuK2GX9CSiHiUA',
#' layer)
felt_delete_map_layer <- function(map_id, layer_id) {
req <- httr2::request(base_url = api_url()) |>
httr2::req_url_path_append('maps', map_id, 'layers', layer_id) |>
httr2::req_auth_bearer_token(token = get_felt_key()) |>
httr2::req_method(method = 'DELETE')
req |>
httr2::req_perform() |>
httr2::resp_status()
}
#' Delete an existing map
#'
#' @param map_id map identifier from url, from `https://felt.com/map/Readable-Name-map_id`
#'
#' @return response code
#' @export
#'
#' @concept map
#'
#' @examplesIf has_felt_key()
#' map <- felt_create_map(title = 'feltr example')
#' felt_delete_map(map_id = map$id)
felt_delete_map <- function(map_id) {
req <- httr2::request(base_url = api_url()) |>
httr2::req_url_path_append('maps', map_id) |>
httr2::req_auth_bearer_token(token = get_felt_key()) |>
httr2::req_method(method = 'DELETE')
req |>
httr2::req_perform() |>
httr2::resp_status()
}