fun with pad_patent_id

Author: mustberuss

R/search-pv.R

@@ -140,11 +140,11 @@ one_request <- function(method, query, base_url, arg_list, api_key, ...) {
 #'
 #' @export
 pad_patent_id <- function(patent_id) {
-  n_zeros <- 8 - nchar(patent_id)
-  patent_id <- paste0(strrep("0", n_zeros), patent_id)
-  sub("(0+)([[:alpha:]]+)([[:digit:]]+)", "\\2\\1\\3", patent_id)
+  padding <-strrep("0", 8 - nchar(patent_id))
+  sub("^([[:alpha:]]*)([[:digit:]]+)", paste0("\\1", padding, "\\2"), patent_id)
 }
 
+
 #' @noRd
 request_apply <- function(result, method, query, base_url, arg_list, api_key, ...) {
   matched_records <- result$query_results[[1]]