NicheNet signaling network from Vinayagam

Builds signaling network prior knowledge for NicheNet using Vinayagam 2011 Supplementary Table S6. Find out more at https://doi.org/10.1126/scisignal.2001699.

Usage

nichenet_signaling_network_vinayagam(...)

Arguments

...

Ignored.

Value

A network data frame (tibble) with signaling interactions suitable for use with NicheNet.

Examples

vi_signaling_network <- nichenet_signaling_network_vinayagam()
#> Error in (function (url, post = NULL, ...) {    httr <- handle_name <- NULL    http_param %<>% ensure_list_2    content_param %<>% ensure_list_2    http_method <- if (is.null(post))         GET    else POST    http_param$body <- post    req_headers %<>% list_null    http_param %<>% c(list(add_headers(.headers = unlist(req_headers)),         handle = structure(list(handle = new_handle(CONNECTTIMEOUT = getOption("omnipath.connect_timeout")),             url = (httr %:::% handle_name)(url)), class = "handle")))    if (!is.null(path)) {        http_param %<>% c(list(write_disk(path, overwrite = TRUE)))    }    response <- exec(http_method, url = url, !!!http_param)    http_status <- status_code(response)    msg <- sprintf("HTTP %i", http_status)    if (http_status != 200L) {        log_warn(msg)        stop(msg)    }    log_trace(msg)    result <- FALSE    if (return_response) {        result <- response    }    else {        if (is.null(path) && !ignore_contents) {            result <- exec(content, response, !!!content_param) %>%                 reader(...)        }    }    if (keep_headers) {        attr(result, "headers") <- headers(response)    }    return(result)})("https://www.science.org/action/downloadSupplement?doi=10.1126%2Fscisignal.2001699&file=4_rs8_tables_s1_s2_and_s6.zip"): HTTP 403