R/internals_slinky.r

In VanAndelInstitute/relinc: Reposition Drugs to Target Genes

#' @import slinky
Relincr$set("private", "start_slinky", function() {
    if(!is.object(private$sl)) {
        gctx <- paste0(private$CONFIG$LINCS_DIR,
               "/GSE92742_Broad_LINCS_Level3_INF_mlr12k_n1319138x12328.gctx")
        if(!file.exists(gctx))
            gctx <- character(0)
        info <- paste0(private$CONFIG$LINCS_DIR, "/",
               "/GSE92742_Broad_LINCS_inst_info.txt.gz")
        gctx <- gsub("//", "/", gctx)
        info <- gsub("//", "/", info)

        private$sl <- Slinky(private$CONFIG$CLUE_KEY, gctx, info)
    }
})