Fix passing of force_server argument in extract_instruments

remlapmot · remlapmot · commit 0ae0733728fb · 2025-12-12T08:22:47.000Z
Reported in #662
diff --git a/R/instruments.R b/R/instruments.R
@@ -33,7 +33,7 @@ extract_instruments <- function(
     clump = clump,
     r2 = r2,
     kb = kb,
-    force_server = FALSE,
+    force_server = force_server,
     opengwas_jwt = opengwas_jwt,
     x_api_source = x_api_source_header()
   )

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@ extract_instruments <- function(`
`33`	`33`	`clump = clump,`
`34`	`34`	`r2 = r2,`
`35`	`35`	`kb = kb,`
`36`		`- force_server = FALSE,`
	`36`	`+ force_server = force_server,`
`37`	`37`	`opengwas_jwt = opengwas_jwt,`
`38`	`38`	`x_api_source = x_api_source_header()`
`39`	`39`	`)`