testAllowedTypes function - Error : missing value where TRUE/FALSE needed

[ksasso]

Reproducible Example Duplicated error below. Fix for issue at Columbus Collaborators Github

Reproducible Example

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)