fix: missed passing arg from fetch to fetch_tbl

dsweber2 · dsweber2 · commit cfe55213bf79 · 2023-07-03T16:43:27.000-07:00
diff --git a/R/epidatacall.R b/R/epidatacall.R
@@ -127,7 +127,7 @@ fetch <- function(epidata_call, fields = NULL, disable_date_parsing = FALSE, ret
   if (epidata_call$only_supports_classic) {
     return(fetch_classic(epidata_call, fields, return_empty = return_empty, timeout_seconds = timeout_seconds))
   } else {
-    return(fetch_tbl(epidata_call, fields, disable_date_parsing, return_empty))
+    return(fetch_tbl(epidata_call, fields, disable_date_parsing, return_empty, timeout_seconds = timeout_seconds))
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -127,7 +127,7 @@ fetch <- function(epidata_call, fields = NULL, disable_date_parsing = FALSE, ret`
`127`	`127`	`if (epidata_call$only_supports_classic) {`
`128`	`128`	`return(fetch_classic(epidata_call, fields, return_empty = return_empty, timeout_seconds = timeout_seconds))`
`129`	`129`	`} else {`
`130`		`- return(fetch_tbl(epidata_call, fields, disable_date_parsing, return_empty))`
	`130`	`+ return(fetch_tbl(epidata_call, fields, disable_date_parsing, return_empty, timeout_seconds = timeout_seconds))`
`131`	`131`	`}`
`132`	`132`	`}`
`133`	`133`