Revision 6298a5601cc5b84f812a66d95dd5361bb5d8b4f9 authored by Vladislav Kamenev on 13 August 2018, 14:20:47 UTC, committed by Vladislav Kamenev on 13 August 2018, 14:20:47 UTC
1 parent 94ca5d1
Raw File
#' Constructs data frame with gene annotations and submits it into Shiny GAM web-server
#' @param es Expression set object
#' @return URL for Shiny GAM
#' @importFrom utils write.table
shinyGAMAnalysis <- function(es) {
    de <- fData(es)

    deFile <- tempfile()
    write.table(de, deFile, sep="\t", row.names=FALSE, col.names=TRUE)

    # :ToDo: deal with bad certificates and remove ssl_verifypeer option
    r <- httr::POST(url="",
               body=readBin(deFile, what="raw", n=20e6),
               httr::config(ssl_verifypeer = FALSE))
    key <- httr::content(r, as="text", encoding="UTF-8")

    shinyGAMUrl <- sprintf("", key)
back to top