clean up R function to find defaultValue column properly

dsidavis · May 18, 2019 · 7e10880 · 7e10880
1 parent 0b703c7
commit 7e10880
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Rqpdf/R/forms.R b/Rqpdf/R/forms.R
@@ -29,8 +29,9 @@ function(z, page = NA)
     vars = names(z[[1]])
     tmp = lapply(vars, function(id) sapply(z, `[[`, id))
     names(tmp) = vars
-    d = as.data.frame(tmp[-5], stringsAsFactors = FALSE)
-    d$defaultValue = I(tmp[[5]])
+    i = match("defaultValue", vars)
+    d = as.data.frame(tmp[-i], stringsAsFactors = FALSE)
+    d$defaultValue = I(tmp[[i]])
     d$page = page
     d
 }