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
|
## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(eval = FALSE)
## -----------------------------------------------------------------------------
# # request the path to an existing .csv file on disk
# path <- rstudioapi::selectFile(caption = "Select CSV File",
# filter = "CSV Files (*.csv)",
# existing = TRUE)
#
# # now, you could read the data using e.g. 'readr::read_csv()'
# data <- readr::read_csv(path)
#
# # request a file path (e.g. where you would like to save a new file)
# target <- rstudioapi::selectFile(caption = "Save File",
# label = "Save",
# existing = FALSE)
#
# # save data to the path provided by the user
# saveRDS(data, file = target)
## -----------------------------------------------------------------------------
# token <- rstudioapi::askForPassword(
# prompt = "Please provide your GitHub access token."
# )
## -----------------------------------------------------------------------------
# rstudioapi::showDialog(title = "Hello, world!",
# message = "You're <b>awesome!</b>",
# url = "http://www.example.com")
|
