/
cas_browse.R
107 lines (101 loc) · 2.72 KB
/
cas_browse.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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
#' Open in a browser a URL stored in the local database
#'
#' This function is typically used to check a web page when extracting links
#' from index, or contents from contents pages.
#'
#' @param remote Defaults to TRUE. If TRUE, opens relevant url online. If FALSE,
#' it opens the locally stored file.
#' @param sample Defaults to 1. By default, it opens one random url.
#'
#' @inheritParams cas_download
#'
#' @return
#' @export
#'
#' @examples
cas_browse <- function(index = FALSE,
remote = TRUE,
id = NULL,
batch = NULL,
index_group = NULL,
file_format = "html",
sample = 1,
disconnect_db = TRUE,
...) {
type <- dplyr::if_else(condition = index,
true = "index",
false = "contents"
)
db <- cas_connect_to_db(
read_only = TRUE,
...
)
if (remote == FALSE) {
local_files <- cas_get_path_to_files(
id = id,
index = index,
file_format = file_format,
db_connection = db,
sample = sample,
disconnect_db = FALSE,
...
)
url_to_open_v <- local_files %>%
dplyr::pull("path")
} else {
if (index == TRUE) {
if (is.null(index_group)) {
if (is.null(id)) {
url_to_open_v <- cas_read_db_index(
db_connection = db,
...
) %>%
dplyr::slice_sample(n = sample) %>%
dplyr::pull("url")
} else {
current_id <- id
url_to_open_v <- cas_read_db_index(
db_connection = db,
...
) %>%
dplyr::filter(id == as.numeric(current_id)) %>%
dplyr::pull("url")
}
} else {
index_group_to_filter <- index_group
url_to_open_v <- cas_read_db_index(
db_connection = db,
disconnect_db = FALSE,
...
) %>%
dplyr::filter(index_group == index_group_to_filter) %>%
dplyr::slice_sample(n = sample) %>%
dplyr::pull("url")
}
} else {
if (is.null(id) == FALSE) {
current_id <- id
url_to_open_v <- cas_read_db_contents_id(
db_connection = db,
disconnect_db = FALSE,
...
) %>%
dplyr::filter(id == current_id) %>%
dplyr::pull("url")
} else {
url_to_open_v <- cas_read_db_contents_id(
db_connection = db,
disconnect_db = FALSE,
...
) %>%
dplyr::slice_sample(n = sample) %>%
dplyr::pull("url")
}
}
}
cas_disconnect_from_db(
db_connection = db,
disconnect_db = disconnect_db
)
browseURL(url_to_open_v)
}