tests/testthat/test_sheet.R

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)


data(iris)
ir = iris
default_dataset(ir)
 
res1 = .sheet(Sepal.Width,  Sepal.Length)
expect_identical(res1, with(iris, sheet(Sepal.Width,  Sepal.Length)))

Try the expss package in your browser

Any scripts or data that you put into this service are public.

expss documentation built on March 25, 2020, 5:12 p.m.