请求协助调试CourtListener API的httr查询代码（参数未生效）

直接排查几个核心问题并给出修正方案：

• 无效的collapse参数：你设置的collapse=","不符合API规范，该参数用于指定折叠重复结果的字段（比如合法值为docket），传逗号会被API直接忽略，建议移除该无效参数，或设置符合要求的字段值。
• 验证参数传递是否正确：可以打印最终请求URL确认参数是否被正确拼接，比如执行print(data$url)，检查q、日期参数是否都出现在URL中。
• 确认令牌有效性：如果令牌无效，API可能返回未过滤的默认结果，可通过data$status_code查看响应状态，200为正常，401则说明令牌验证失败。

修正后的示例代码：

query_params <- list(
    q = "defamation OR libel OR slander",  # 搜索相关案件
    date_filed_min = "2023-01-01",  # 起始日期
    date_filed_max = "2024-01-01"   # 结束日期
    # 若需要折叠结果，可添加合法值如 collapse = "docket"
)
api_token <- "<hidden>"
data <- GET(
   "https://www.courtlistener.com/api/rest/v4/dockets/",
    query = query_params,
    add_headers(Authorization = paste("Token", api_token))
)

# 检查请求URL是否包含所有参数
print(data$url)
# 解析响应内容查看结果
content(data, "parsed")

另外，若q参数的过滤效果仍不明显，可尝试用字段限定语法缩小范围，比如q = "title:defamation OR title:libel OR title:slander"，明确指定在标题字段中搜索关键词。

内容的提问来源于stack exchange，提问作者user72847