WIP

NAMESPACE

@@ -46,5 +46,6 @@ export(setServer)
 export(updateExperiment)
 export(updateGate)
 export(updateGateFamily)
+export(updateScaleSets)
 export(uploadAttachment)
 export(uploadFcsFile)

R/convertFlowCore.R

@@ -174,3 +174,27 @@ convertFromFlowCore <- function (flowObject, scaleSet, name=NULL) {
     }
   )
 }
+
+# this is a pretty annoying function
+# appendToScaleSet <- function (tl) {
+#   browser()
+#   scales = c()
+#   channels = names(tl@transforms)
+#   mapply(
+#     function (tf) {
+
+#       tf@f
+#       _scale = list(channelName = tf@input)
+#     },
+#     tl@transforms
+#   )
+#   list(
+#     `_id` = "foo",
+#     experimentId = "bar",
+#     name = tl@transformationId,
+#     scales = scales,
+#   )
+# }
+
+scaleSetToTransformList <- function (scaleSet) {
+}

R/updateScaleSets.R

@@ -0,0 +1,21 @@
+#' Update scale set
+#'
+#' Updates a scale set.
+#'
+#' @param experimentId ID of experiment.
+#' @param properties Properties to set on the gate.
+#' @param params Optional query parameters.
+#' @export
+#' @examples
+#' \dontrun{
+#' updateScaleSets(experimentId, gid, list("name" = "new gate name"))
+#' }
+
+updateScaleSets = function(experimentId, gid, properties = list(), params = list()) {
+  checkDefined(experimentId)
+  checkDefined(gid)
+  experimentId = lookupByName("experiments", experimentId)
+  body = jsonlite::toJSON(properties, null = "null")
+  base = paste("experiments", experimentId, "scalesets", sep = "/")
+  basePatch(url, body, params)
+}

_pkgdown.yml

@@ -33,6 +33,7 @@ reference:
   - title: Scales
     contents:
       - getScaleSets
+      - updateScaleSets
       - applyScale
 
   - title: Compensations