library(DBI)
library(sqldf)
studies_dir <- system.file("extdata", "ImmPortStudies", package = "RImmPort")
db_dir <- file.path(studies_dir, "Db")
sqlite_conn <- dbConnect(SQLite(), dbname=file.path(db_dir, "ImmPort.sqlite"))
setImmPortDataSource(sqlite_conn)
l <- getDomainDataOfStudies("Cellular Quantification", "SDY208")
df <- mergeDomainAndSupplemental(l)
Run the code above in your browser using DataLab