Issue#32

R/bib2df_gather.R

@@ -30,7 +30,7 @@ bib2df_gather <- function(bib) {
 
   categories <- lapply(itemslist,
                        function(x) {
-                         str_extract(x, "[:graph:]+")
+                         str_extract(x, "[[:alnum:]_]+")
                        }
   )
 

inst/extdata/bib2df_testfile_4.bib

@@ -0,0 +1,8 @@
+@ARTICLE{Foo1,
+author={Foo, B},
+title   ={The Foo},
+journal	={Proceedings of Something},
+year  	={2009},
+abstract    ={Bla bla bla.},
+author_keywords={foo,foo}
+}

tests/testthat/tests.R

@@ -86,3 +86,17 @@ test_that("bib2df() allows '@' and '=' in fields", {
   expect_true(identical(bib$TITLE[1], "The C@C60 endohedral complex"))
   expect_true(identical(bib$ABSTRACT[1], "Foo bar (F-st = 0.81, P < 0.001) bla bla."))
 })
+
+context("Allow for tags with _ and without spaces before =")
+
+test_that("bib2df() allows any number of blanks before =", {
+  bib <- bib2df(system.file("extdata", "bib2df_testfile_4.bib", package = "bib2df"))
+  supplied_cols <- c("AUTHOR", "TITLE", "JOURNAL", "YEAR", "ABSTRACT")
+  expect_false(any(is.na(bib[supplied_cols])))
+})
+
+test_that("bib2df() allows for _ in tab name", {
+  bib <- bib2df(system.file("extdata", "bib2df_testfile_4.bib", package = "bib2df"))
+  supplied_col <- "AUTHOR_KEYWORDS"
+  expect_false(any(is.na(bib[supplied_col])))
+})