-
Notifications
You must be signed in to change notification settings - Fork 123
/
init.R
103 lines (88 loc) · 2.7 KB
/
init.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
# This file is executed with its containing directory as wd
# Remember the working directory (should be extension subfolder that contains this script)
dir_init <- getwd()
# This function is run at the beginning of R's startup sequence
# Code that is meant to be run at the end of the startup should go in `init_last`
init_first <- function() {
# return early if not a vscode term session
if (
!interactive()
|| Sys.getenv("RSTUDIO") != ""
|| Sys.getenv("TERM_PROGRAM") != "vscode"
) {
return()
}
# check requried packages
required_packages <- c("jsonlite", "rlang")
missing_packages <- required_packages[
!vapply(required_packages, requireNamespace,
logical(1L), quietly = TRUE)
]
if (length(missing_packages)) {
message(
"VSCode R Session Watcher requires ",
toString(missing_packages), ". ",
"Please install manually in order to use VSCode-R."
)
} else {
# Initialize vsc utils after loading other default packages
assign(".First.sys", init_last, envir = globalenv())
}
}
old.First.sys <- .First.sys
# Overwrite for `.First.sys`
# Is used to make sure that all default packages are loaded first
# Will be assigned to and called from the global environment,
# Will be run with wd being the user's working directory (!)
init_last <- function() {
old.First.sys()
# cleanup previous version
removeTaskCallback("vscode-R")
options(vscodeR = NULL)
.vsc.name <- "tools:vscode"
if (.vsc.name %in% search()) {
detach(.vsc.name, character.only = TRUE)
}
# Source vsc utils in new environmeent
.vsc <- new.env()
source(file.path(dir_init, "vsc.R"), local = .vsc)
# attach functions that are meant to be called by the user/vscode
exports <- local({
.vsc <- .vsc
.vsc.attach <- .vsc$attach
.vsc.view <- .vsc$show_dataview
.vsc.browser <- .vsc$show_browser
.vsc.viewer <- .vsc$show_viewer
.vsc.page_viewer <- .vsc$show_page_viewer
View <- .vsc.view
environment()
})
attach(exports, name = .vsc.name, warn.conflicts = FALSE)
# overwrite S3 bindings from other packages
suppressWarnings({
if (!identical(getOption("vsc.helpPanel", "Two"), FALSE)) {
# Overwrite print function for results of `?`
.vsc$.S3method(
"print",
"help_files_with_topic",
.vsc$print.help_files_with_topic
)
# Overwrite print function for results of `??`
.vsc$.S3method(
"print",
"hsearch",
.vsc$print.hsearch
)
}
# Further S3 overwrites can go here
# ...
})
# remove this function from globalenv()
suppressWarnings(
rm(".First.sys", envir = globalenv())
)
# Attach to vscode
exports$.vsc.attach()
invisible()
}
init_first()