added max_results argument to list_tables()

i think we're better off letting the server provide the default if this isn't specified.

maybe just leave this line as-is, default `max_results` to `NULL`, and instead add

    if (!is.null(max_results)) {
      url <- modify_url(url, query = list(maxResults = max_results))
    }