moved the add pk

mustberuss · mustberuss · commit b8cbf9a89f6a · 2025-02-04T20:49:50.000-06:00
diff --git a/R/search-pv.R b/R/search-pv.R
@@ -327,10 +327,6 @@ search_pv <- function(query,
     query <- jsonlite::toJSON(query, auto_unbox = TRUE)
   }
 
-  pk <- get_ok_pk(endpoint)
-  # We need pk to be in the result for all_pages to work with ease, hence adding
-  # it below
-  fields <- unique(c(pk, fields))
   abbreviated_fields <- sub_grp_names_for_fields(endpoint, fields)
 
   arg_list <- to_arglist(abbreviated_fields, size, sort, after)

Original file line number	Diff line number	Diff line change
`@@ -327,10 +327,6 @@ search_pv <- function(query,`
`327`	`327`	`query <- jsonlite::toJSON(query, auto_unbox = TRUE)`
`328`	`328`	`}`
`329`	`329`
`330`		`- pk <- get_ok_pk(endpoint)`
`331`		`- # We need pk to be in the result for all_pages to work with ease, hence adding`
`332`		`- # it below`
`333`		`- fields <- unique(c(pk, fields))`
`334`	`330`	`abbreviated_fields <- sub_grp_names_for_fields(endpoint, fields)`
`335`	`331`
`336`	`332`	`arg_list <- to_arglist(abbreviated_fields, size, sort, after)`