R/function.R

In JesJehle/test:

#' run google drive
#' @export
run_googledrive <- function() {
  req <- googledrive::build_request(
    path = "drive/v3/files/{fileId}",
    method = "GET",
    list(fileId = "abc", key = "an-api-key"),
    token = NULL
  )
  return(req)
}

# #' run sf
# #' @export
# run_sf <- function() {
#   test_data <- st_read(system.file("data/test-data.shp", package = "test"), quiet = T)
#
#   return(class(test_data))
# }
# #' run reticulate
# #' @export
# run_reticulate <- function() {
#   return(py_config())
# }