Description Usage Arguments Author(s) Examples
View source: R/ds.share.param.R
TODO
1 | ds.share.param(param.names = NULL, tolerance = 15, datasources = NULL)
|
param.names |
a character vector specifying the name of the variables. |
tolerance |
threshold for ignoring small floating point difference when comparing numeric vectors |
datasources |
a list of |
Patricia Ryser-Welch for DataSHIELD development
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 | ## Not run:
## Version 6.2, for older versions see the Wiki
# Connecting to the Opal servers
# Only for windows user
## (switches implementation of SSL used by the curl R package to "openssl")
Sys.setenv(CURL_SSL_BACKEND = "openssl")
# Load necessary client packages
require('DSI')
require('DSOpal')
require('dsBaseClient')
require('ds.client.connection.server')
# Append login information for a specific server
#Data computers name
server.names <- c("Paris", "Newcastle", "New York")
# Data computers url
url_Paris <- 'https://192.168.56.100:8443'
url_Newcastle <- 'https://192.168.56.100:8443'
url_NewYork <- 'https://192.168.56.100:8443'
server.urls <- c(url_Paris,url_Newcastle,url_NewYork)
# Assign datasets
table_Paris <- "TESTING.DATASET1"
table_Newcastle <- "TESTING.DATASET2"
table_NewYork <- "TESTING.DATASET3"
server.tables <- c(table_Paris, table_Newcastle, table_NewYork)
# Set user and password to access the DataSHIELD servers
user_Paris <- "administrator"
user_Newcastle <- "administrator"
user_NewYork <- "administrator"
server.users.id <- c(user_Paris, user_Newcastle, user_NewYork)
password_Paris <- "datashield_test&"
password_Newcastle <- "datashield_test&"
password_NewYork <- "datashield_test&"
server.users.pwd <- c(password_Paris, password_Newcastle, password_NewYork)
# Set drivers
driver_Paris <- "OpalDriver"
driver_Newcastle <- "OpalDriver"
driver_NewYork <- "OpalDriver"
server.drivers <- c(driver_Paris,driver_Newcastle,driver_NewYork)
# Set SSL drivers
ssl_options_Paris <- "list(ssl_verifyhost=0,ssl_verifypeer=0)"
ssl_options_Newcastle <- "list(ssl_verifyhost=0,ssl_verifypeer=0)"
ssl_options_NewYork <- "list(ssl_verifyhost=0,ssl_verifypeer=0)"
server.ssl.options <- c(ssl_options_Paris,ssl_options_Newcastle,ssl_options_NewYork)
# Create login data frame
login.data <- ds.build.login.data.frame(server.names,
server.urls,
server.tables,
server.users.id,
server.users.pwd,
server.ssl.options,
server.drivers)
# Log in to DataSHIELD server
connections <- ds.login(login.data.frame = login.data, assign = TRUE, symbol = "D")
# Clear the Datashield/R sessions and logout
ds.logout(connections)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.