--- /dev/null
+DestroyKafkaConsumer <- function(consumer.base.uri) {
+ response <- DELETE(url = consumer.base.uri,
+ content_type("application/vnd.kafka.v2+json"))
+ if(response$status_code == 204) {
+ return(TRUE)
+ } else stop(response)
+}
\ No newline at end of file