azure_fxn <- function(input_thing){
output_thing <- input_thing[input_thing$mpg > 30,]
return(output_thing)
}
inputMTCars <- mtcars
inputMTCars$carnames <- rownames(mtcars)
#removing rowname col from mtcars. This produces an error on the Consume function, with table column count being 1 more than expected
rownames(inputMTCars) <- NULL
api <- publishWebService(
ws,
fun = azure_fxn,
name = "AzureML-vignette-silly-function",
inputSchema = inputMTCars
)
output <- consume(api, inputMTCars)
Reproducible Example Duplicated error below. Fix for issue at Columbus Collaborators Github
Reproducible Example