r - How to solve this?? Error in [<-.data.frame: new columns would leave holes after existing columns

Question

Below is my code. This is a part of my shiny app. Whenever i am trying to run the app an error appears
Error in [<-.data.frame: new columns would leave holes after existing columns

    not_found[,4:ncol(results)] <- NA
    colnames(not_found) <- colnames(results)    
        
    results <- rbind(results, not_found)
    
    #Remove columns that are not useful
    drop <- grepl("(original|super|_v2_|wib|necta|cia|_at|population|is_micro|dma|type_id|region|zip)",
 colnames(results), ignore.case = TRUE, perl = TRUE)
   
    results <- results[, drop == FALSE]
    
    results
    
})


output$contents <- renderTable({
    req(mydata())
    mydata()
    
})

output$response <- renderTable({
    myresponse()
    
})

question from:https://stackoverflow.com/questions/66064752/how-to-solve-this-error-in-data-frame-new-columns-would-leave-holes-after

Answer 1

Waitting for answers