R/Spray.R

In hpcc-systems/r2hpcc: Call HPCC Ws_SQL functions from R

#' This function sprays a file from the drop zone
#'
#' @param conn - HPCC connection information
#' @param sourceIP 
#' @param sourcePath 
#' @param recordSize 
#' @param destinationGroup 
#' @param namePrefix 
#' @param targetName 
#' @param overwrite 
#' @param compress 
#'
#' @return - status of processed operation
#' @export
r2hpcc.SprayFixed <- function(conn, sourceIP, sourcePath, recordSize, destinationGroup, namePrefix, targetName, overwrite = FALSE, compress = FALSE)
{
	host <- conn[1]

	params <- list()
	params[["rawxml_"]] <- 1
	params[["sourceIP"]] <- sourceIP
	params[["sourcePath"]] <- gsub(" ", "%20", sourcePath)
	params[["targetRecordLength"]] <- recordSize
	params[["sourceRecordSize"]] <- recordSize
	params[["destGroup"]] <- destinationGroup
	params[["namePrefix"]] <- namePrefix
	params[["targetName"]] <- gsub(" ", "%20", targetName)
	if (overwrite == TRUE)
		params[["overwrite"]] <- "on"
	if (compress == TRUE)
		params[["compress"]] <- "on"
	if (nchar(namePrefix) == 0)
		params[["destLogicalName"]] <- gsub(" ", "%20", targetName)
	else
		params[["destLogicalName"]] <- paste(namePrefix, '::', gsub(" ", "%20", targetName), sep = "")

	resp <- r2hpcc.HTTPRequest2(host, 8010, "FileSpray/SprayFixed.json", params)
	resp
}