-
Notifications
You must be signed in to change notification settings - Fork 6
/
Copy pathzzz.R
43 lines (36 loc) · 1.41 KB
/
zzz.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
### ctrdata package
### initialising
# create environment private to this package
# for caching field names, javascript functions;
# name of hidden environment: .ctrdataenv
# see also ctrCache in utils.R
.ctrdataenv <- new.env()
# check helper functions
.onAttach <- function(libname, pkgname) {
# inform user
packageStartupMessage(
"\nInformation on this package and how to use it:\n",
"https://cran.r-project.org/package=ctrdata\n\n",
"Please respect the requirements and the copyrights of the\n",
"clinical trial registers when using their information. Call\n",
"ctrOpenSearchPagesInBrowser(copyright = TRUE) and visit\n\n",
"https://www.clinicaltrialsregister.eu/disclaimer.html\n",
"https://clinicaltrials.gov/about-site/terms-conditions#usage\n",
"https://www.isrctn.com/page/faqs#using-the-isrctn\n",
"https://euclinicaltrials.eu/about-this-website/\n",
"\nPlease cite this package, see citation(\"ctrdata\").\n",
"\n", utils::packageVersion("ctrdata")
)
# initialise
initTranformers()
# inform user
if (.Platform$OS.type == "windows" &&
length(Sys.glob("c:\\cygw*\\bin\\bash.exe"))) {
packageStartupMessage(
"\nNote: Cygwin seems to be installed on the user's system.\n",
"This is no more needed for package ctrdata as of v1.16.0.\n",
"Users may chose to delete its folder (look for c:\\cygw*).\n")
}
# return
invisible()
} # .onAttach