style: fromat sci. not. only in strings

kalab-oto · Oct 28, 2023 · 5e0ae87 · 5e0ae87
1 parent b36397c
commit 5e0ae87
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/R/ndop_download.R b/R/ndop_download.R
@@ -123,18 +123,16 @@ ndop_download <- function(species, family, group, locations = 0, search_payload)
         } else {
            to <- num_rec
         }
-        to <- format(to, scientific = FALSE)
-        cat(paste0(frompage + 1, " - ", to, "\n"))
+        cat(paste0(frompage + 1, " - ", format(to, scientific = FALSE), "\n"))
         if (num_rec == frompage + pagesize) {
            cat(num_rec)
         }
-        frompage <- format(frompage, scientific = FALSE)
         table_url <- paste0("https://portal.nature.cz/nd/find.php?",
                             "akce=seznam&opener=&vztazne_id=0&",
                             "order=ID_ND_NALEZ&orderhow=DESC&frompage=",
-                            frompage,
+                            format(frompage, scientific = FALSE),
                             "&pagesize=",
-                            pagesize,
+                            format(pagesize, scientific = FALSE),
                             "&filtering=&searching=&export=1&ndtoken=",
                             ndtoken)
         table_post <- httr::POST(url = table_url,