1get_latest_tweet_id = function(table_name = "tweets") { 2 db_handle = get_db_handle_check_table(table_name) 3 max_id = dbGetQuery(db_handle, paste("select max(id) from", table_name)) 4 if (nrow(max_id) == 0) { 5 stop("No existing tweets in ", table_name) 6 } else { 7 max_id[1, 1] 8 } 9} 10 11