Skip to content

Instantly share code, notes, and snippets.

@fdlk
Created May 1, 2020 12:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save fdlk/0b51a10758cd279c0d535aaba91aba48 to your computer and use it in GitHub Desktop.
Save fdlk/0b51a10758cd279c0d535aaba91aba48 to your computer and use it in GitHub Desktop.
library(remotes)
install_github("molgenis/molgenis-r-datashield")
install_github("datashield/dsBaseClient@v6.0-dev")
install_github("datashield/DSI")
install_github("obiba/opalr")
install_github("datashield/DSOpal")
library(DSI)
library(DSOpal)
library(dsBaseClient)
server <- c("opal-dsi")
url <- c("https://datashield-dsi.dev.molgenis.org")
user <- c("administrator")
password <- c("admin")
driver <- c("OpalDriver")
table <- c("datashield.PATIENT")
logindata <- data.frame(server, url, user, password,driver,table)
conns <- datashield.login(logins=logindata, assign=F)
datashield.assign.table(conns, "patient", "datashield.PATIENT")
ds.summary("patient")
ds.subset(x = 'patient', subset = 'less_patients', logicalOperator = 'age>=', threshold = 40, datasources = conns)
@StuartWheater
Copy link

Thanks, I will look into this. Stuart

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment