Merge branch 'main' into init-testthat

DESCRIPTION

@@ -12,9 +12,9 @@ RoxygenNote: 7.2.3
 Imports: 
     askpass,
     assertthat,
-    dplyr,
     httr2,
     magrittr,
+    openssl,
     purrr
 Suggests: 
     testthat (>= 3.0.0)

NAMESPACE

@@ -3,4 +3,5 @@
 export("%>%")
 export(get_access_token)
 export(get_fields)
+export(get_records)
 importFrom(magrittr,"%>%")

R/get_access_token.R

@@ -6,9 +6,9 @@
 #' @return Invisibily, an access token upon succes
 #' @export
 #'
-#' @examples
+#' @examples \dontrun{get_access_token("my_username")}
 get_access_token <-
-  function(username = "phuybrechts", quiet = FALSE) {
+  function(username, quiet = FALSE) {
     # check input params
     assertthat::assert_that(assertthat::is.string(username))
     assertthat::assert_that(assertthat::is.flag(quiet))

R/get_fields.R

@@ -7,7 +7,7 @@
 #' inspection
 #' @export
 #'
-#' @examples
+#' @examples \dontrun{get_fields("Vespa-Watch")}
 get_fields <- function(name = "Vespa-Watch", access_token = get_access_token(quiet = TRUE)) {
   # check input params
   assertthat::assert_that(assertthat::is.string(access_token))

R/get_records.R

@@ -3,10 +3,10 @@
 #' @param inspection_name name of the custom inspection to return records for
 #' @param access_token access token from `get_access_token()`
 #'
-#' @return
+#' @return a tibble with the records from the selected inspection.
 #' @export
 #'
-#' @examples
+#' @examples \dontrun{get_records("Vespa-Watch")}
 get_records <- function(inspection_name = "Vespa-Watch",
                         access_token = get_access_token(quiet = TRUE)) {
   # check input params