bug: query string exceeds length limit

[andrewallenbruce]

library(provider)

x <- opt_out(city = "Atlanta", state = "GA")
#> ✔ opt_out returned 352 results.

order_refer(npi = x[x$order_refer == 1L, ]$npi)
#> Error in `httr2::req_perform()` at provider/R/httr2.R:40:3:
#> ! Failed to parse error body with method defined in `req_error()`.
#> Caused by error in `httr2::resp_body_json()` at provider/R/httr2.R:40:3:
#> ! Unexpected content type "text/html".
#> • Expecting type "application/json" or suffix "json".

^{Created on 2026-05-12 with reprex v2.1.1}

[andrewallenbruce]

library(provider)

x <- opt_out(city = "Atlanta", state = "GA")
#> ✔ opt_out returned 352 results.

y <- provider:::cms(
  count = TRUE,
  NPI = x[x$order_refer == 1L, ]$npi[1:185],
  end = "order_refer"
)

y
#> <CMS>
#>  @ end   : chr "order_refer"
#>  @ url   : chr "https://data.cms.gov/data-api/v1/dataset/c99b5865-1119-4436-bb80-c5af2773ea1f/data"
#>  @ limit : int 5000
#>  @ query : chr "filter[0][condition][path]=NPI&filter[0][condition][operator]=IN&filter[0][condition][value][1]=1679613319&filt"| __truncated__
#>  @ length: int 8096
#>  @ action: chr "count"
#>  @ count : int 183
#>  @ pages : int 1

# query length > 8096 seems to be the limit
y@length
#> [1] 8096

# url + query = 8178
nchar(y@url) + y@length
#> [1] 8178

# Try -> if argument length > 150, split into 2 requests

^{Created on 2026-05-12 with reprex v2.1.1}

[andrewallenbruce]

The error message:

library(provider)
library(httr2)
library(rvest)

x <- opt_out(city = "Atlanta", state = "GA")
#> ✔ opt_out returned 352 results.

y <- order_refer(npi = unique(x[x$order_refer == 1L, ]$npi))
#> Error in `httr2::req_perform()` at provider/R/httr2.R:40:3:
#> ! Failed to parse error body with method defined in `req_error()`.
#> Caused by error in `httr2::resp_body_json()` at provider/R/httr2.R:40:3:
#> ! Unexpected content type "text/html".
#> • Expecting type "application/json" or suffix "json".

resp <- httr2::last_response()

resp |> 
  httr2::resp_body_html() |> 
  rvest::html_text2() |> 
  strsplit("\\n") |> 
  unlist()
#> [1] "Bad Request"                                                       
#> [2] "Your browser sent a request that this server could not understand."
#> [3] ""                                                                  
#> [4] "Reference #7.2efe3117.1778831422.2856c30a"                         
#> [5] ""                                                                  
#> [6] "https://errors.edgesuite.net/7.2efe3117.1778831422.2856c30a"

^{Created on 2026-05-15 with reprex v2.1.1}