Merge pull request #321 from carpentries/fix-set-config

fix fencepost bug in set_dropdown
carpentries · Jul 12, 2022 · c065621 · c065621
2 parents 5192bac + 7dfed71
commit c065621
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/set_dropdown.R b/R/set_dropdown.R
@@ -102,9 +102,9 @@ set_config <- function(pairs = NULL, create = FALSE, path = ".", write = FALSE)
   if (create) {
     appends <- what == -9L
     if (any(appends)) {
-      start <- length(l) + 1L
-      end <- start + length(what[!appends])
-      what[appends] <- seq(from = start, to = end)
+      start <- length(l)
+      end <- start + length(what[appends])
+      what[appends] <- seq(from = start + 1L, to = end)
     }
   } else {
     toss <- what == 0