R/updateStyleMapping.R

In cytoscape/r2cytoscape: Functions for Cytoscape Automation

#' Updates a visual property mapping in a style
#'
#' @description Updates the visual property mapping, overriding any prior mapping. Creates a
#' visual property mapping if it doesn't already exist in the style.
#' @details Requires visual property mappings to be previously created, see mapVisualProperty.
#' @param style.name (char) name for style
#' @param mapping a single visual property mapping, see mapVisualProperty
#' @param base.url cyrest base url for communicating with cytoscape
#' @return server response
#' @export
#' @seealso mapVisualProperty
#' @examples
#' \donttest{
#' updateStyleMapping('myStyle',mapVisualProperty('node label','name','p'))
#' }
#' @import RJSONIO
#' @import httr

updateStyleMapping <- function(style.name, mapping, base.url='http://localhost:1234/v1') {

    visual.prop.name = mapping$visualProperty

    # check if vp exists already
    exists = FALSE
    check.url <- paste(base.url,'styles', style.name,'mappings',sep = '/')
    res <- GET(check.url)
    res.elem <- fromJSON(rawToChar(res$content))
    for(re in res.elem){
     if(class(re)=='list')
         if(re$visualProperty==visual.prop.name)
             exists = TRUE
    }

    if(exists){     #if yes...
        style.url <- paste(base.url,'styles', style.name,'mappings',visual.prop.name, sep = '/')
        map.body <- toJSON(list(mapping))
        invisible(PUT(url=style.url,body=map.body, encode="json"))
        invisible(PUT(url=style.url,body=map.body, encode="json"))    # have to run it twice!? omg...
    }
    else {    # if no...
        style.url <- check.url
        map.body <- toJSON(list(mapping))
        invisible(POST(url=style.url,body=map.body, encode="json"))
    }
}