alteryx / alteryxrhelper Goto Github PK

# Configuration
config <- list(
  inputMode = '%Question.inputMode%',
  solver = '%Question.solver%'
)

# Inputs 
inputs <- list(
  A = read.Alteryx("#1"),
  B = read.Alteryx("#2")
)

payload = list(config = config, inputs = inputs)

results <- outputs(payload)

write.Alteryx(results$data, 1)
write.Alteryx(results$plot, 2)

#' Generate TextInput compatible XML for a Data Frame
df2TextInput <- function(x){
  config <- read_xml("<Configuration />")
  xml_add_child(config, "NumRows", value = as.character(NROW(x)))
  fields <- xml_add_child(config, "Fields")
  for (name in names(x)){
    xml_add_child(fields, "Field", name  = name)
  }
  data = xml_add_child(config, "Data")
  for (i in 1:NROW(x)){
    row = xml_add_child(data, "r")
    for(j in 1:NCOL(x))
      xml_add_child(row, "c", as.character(x[i,j]))
  }
  config
}

#' Generate Configuration XML from Configuration List.
config2xml <- function(props){
  config <- read_xml("<Configuration />")
  for (k in names(props)){
    xml_add_child(config, "Value", name = k, paste(props[[k]], collapse = " + "))
  }
  config
}

#' Make workflow given data, template and tool ids.
makeWorkflow <- function(template, data, config, inputs_id, config_id, outFile){
  getTool <- function(id){
    sprintf("//Node[@ToolID = '%s']/Properties/Configuration", id)
  }
  doc <- read_xml(template)
  n2 <- xml_find_first(doc, getTool(inputs_id))
  textinput <- df2TextInput2(data)
  invisible(xml_replace(n2, textinput))

  n3 <- xml_find_first(doc, getTool(config_id))
  xmlConfig <- list2xml(config)
  invisible(xml_replace(n3, xmlConfig))
  write_xml(doc, outFile)
}