https://github.com/ctlab/phantasus
Revision 95ed673417017918b7ec125bc5f77fdf240a3573 authored by petrovich on 30 August 2018, 23:03:32 UTC, committed by petrovich on 30 August 2018, 23:03:32 UTC
1 parent b908239
Tip revision: 95ed673417017918b7ec125bc5f77fdf240a3573 authored by petrovich on 30 August 2018, 23:03:32 UTC
Fixed and added test
Fixed and added test
Tip revision: 95ed673
shinyGAM.R
#' 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="https://artyomovlab.wustl.edu/upload",
body=readBin(deFile, what="raw", n=20e6),
httr::config(ssl_verifypeer = FALSE))
httr::stop_for_status(r)
key <- httr::content(r, as="text", encoding="UTF-8")
shinyGAMUrl <- sprintf("https://artyomovlab.wustl.edu/shiny/gam/?geneDE_key=%s", key)
return(jsonlite::toJSON(shinyGAMUrl))
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...