Update R/occ_count.r

Co-authored-by: Copilot <175728472+Copilot@users.noreply.github.com>

Author: jhnwllr

R/occ_count.r

@@ -99,8 +99,11 @@
 #' occ_count(facet="institutionCode",basisOfRecord="PRESERVED_SPECIMEN")
 #' 
 #' }
-occ_count <- function(...,occurrenceStatus="PRESENT", 
-curlopts = list(http_version = 2)) {
+occ_count <- function(
+  ...,
+  occurrenceStatus = "PRESENT",
+  curlopts = list(http_version = 2)
+) {
   args <- list(...)
   args <- rgbif_compact(c(args,occurrenceStatus=occurrenceStatus))
   arg_names <- names(args)