tests/testthat/test-xlsxtracter_one_to_many.R

In ebenp/xlsxtracter: Extract row, column tabular data in a programmatic fashion

# tester for xlsxtracter

infile <- "test1.xlsx"
sheet <- "Sheet1"
rows <- seq(4, 15)
header <- c("col1", "col2","col3")
colrow = list(c("A", "B","C"), c(rows))

# returns a dataframe
d <- xlsxtractor(infile, colrow, header = header,
                 one_to_many = list(c("one_to_many"),
                                    c("C"), c(1)))