tests/testthat/test_sheet.R

In gdemin/expss: Tables, Labels and Some Useful Functions from Spreadsheets and 'SPSS' Statistics

context("sheet")

df1 = data.frame(a = letters[1:3], "This is my long name" = 1:3, 
                 check.names = FALSE,
                 stringsAsFactors = FALSE
                 )
df2 = sheet(a = letters[1:3], "This is my long name" = 1:3)

expect_identical(df1, df2)