Append a Unique ID to sprintf SQL query in R

I currently am running a loop to check if Certain ID's are contained in a function being called from SQL, but the function table doesn't have the unique ID column. I want to attach the unique ID to the output, before I rbind the lists together.
My code currently looks like this:

channel = RODBC::odbcDriverConnect("some connection")
output <- list()

for (i in 1:nrow(df)){
unique_id <- df$col1[i]
query = sprintf("select * from table1('%s')",unique_id)

query = RODBC::sqlQuery(channel, query)
output[[i]] <- query
}

final_output <- do.call('rbind',output)