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