-
Notifications
You must be signed in to change notification settings - Fork 4
/
data.R
49 lines (46 loc) · 1.09 KB
/
data.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
#' Get file path to an default credentials RDS
default_creds_path <- function() {
list.files(
pattern = "default_creds.rds",
recursive = TRUE,
system.file("extdata", package = "rgoogleclassroom"),
full.names = TRUE
)
}
#' Get file path to an key encryption RDS
key_encrypt_creds_path <- function() {
list.files(
pattern = "encrypt_pass.rds",
recursive = TRUE,
system.file("extdata", package = "rgoogleclassroom"),
full.names = TRUE
)
}
#' Get file path to an encrypted credentials RDS
encrypt_creds_path <- function() {
list.files(
pattern = "encrypt.rds",
recursive = TRUE,
system.file("extdata", package = "rgoogleclassroom"),
full.names = TRUE
)
}
#' Get file path to an example quiz
#'
#' @return A file path to a markua markdown quiz example you can use for testing
#' @export
#' @examples \dontrun{
#'
#' # Find quiz path
#'
#' quiz_path <- markdown_quiz_path()
#' }
#'
markdown_quiz_path <- function() {
list.files(
pattern = "quiz.md",
recursive = TRUE,
system.file("extdata", package = "rgoogleclassroom"),
full.names = TRUE
)
}