tests/testthat/test_xl.R

In gdemin/excel.link: Convenient Data Exchange with Microsoft Excel

context("xl (long test)")
if (FALSE){
    data(iris)
    rownames(iris)=as.character(rownames(iris))
    iris$Species=as.character(iris$Species)
    xl.workbook.add()
    xlrc$a1 <- iris
    xl.iris <- xl.current.region("a1",row.names=TRUE,col.names=TRUE)
    expect_identical(xl.iris,iris)
    xl.workbook.close()
    
    ## NA
    
    set.seed(1)
    xl.workbook.add()
    aaa=matrix(rnorm(100000),ncol=100)
    xl[a1]=aaa
    aaa[aaa<0]=NA
    xl[a1]=aaa
    test=as.matrix(xl[a1:cv1000])
    dimnames(test)=NULL
    expect_equal(aaa,test)
    aaa=matrix(sample(c(TRUE,FALSE,NA),100000,replace=TRUE),ncol=100)
    xl[a1]=aaa  #### долго 
    test=as.matrix(xl[a1:cv1000])
    dimnames(test)=NULL
    expect_equal(aaa,test)
    xl.workbook.close()
    
    #### NA na='na'
    
    set.seed(1)
    xl.workbook.add()
    aaa=matrix(rnorm(100000),ncol=100)
    aaa[aaa<0]=NA
    xl[a1, na='na']=aaa
    test=as.matrix(xl[a1:cv1000, na='na'])
    dimnames(test)=NULL
    expect_equal(aaa,test)
    aaa=matrix(sample(c(TRUE,FALSE,NA),100000,replace=TRUE),ncol=100)
    xl[a1, na='na']=aaa
    test=as.matrix(xl[a1:cv1000, na='na'])
    dimnames(test)=NULL
    expect_equal(aaa,test)
    
    xl.workbook.close()
}
##### multi-column element of data.frame ######

context("multi-column element of data.frame")
xl.workbook.add()
test=data.frame(a=letters[1:3],b=I(matrix(1:9,3)),d=LETTERS[1:3])
xlrc[a1]=test 
test2=data.frame(a=letters[1:3],b=(matrix(1:9,3)),d=LETTERS[1:3],stringsAsFactors = FALSE)
expect_equal(all(test2==xlrc[a1:f4]),TRUE)
expect_identical(colnames(test2),colnames(xlrc[a1:f4]))

xl.workbook.close()

context("r.obj size")

xl.workbook.add()
xl[a1] <- (1:1048576)
expect_error(xl[a1] <- (1:(1048576 + 1)))
expect_error(xl[a2] <- (1:1048576))
xl[a1] <- t(1:16384)
expect_error(xl[a1] <- t(1:(16384+1)))
expect_error(xl[b1] <- t(1:16384))

xl.workbook.close()

context("xln")

xln[a1] = mtcars
new_mtcars = cr[a2]
expect_equal_to_reference(new_mtcars, "rds/xln1.rds")


xlcn[a1, xl.sheet.name = "new sheet"] = mtcars
xl.sheet.activate("new sheet")
new_mtcars = cr[a2]
expect_equal_to_reference(new_mtcars, "rds/xln2.rds")

xlrcn[a1, xl.sheet.name = "previous sheet", before = "new sheet"] = mtcars
xl.sheet.activate("previous sheet")
new_mtcars = cr[a2]
expect_equal_to_reference(new_mtcars, "rds/xln3.rds")

xlrn[a1, before = "previous sheet"] = mtcars
new_mtcars = cr[a2]
expect_equal_to_reference(new_mtcars, "rds/xln4.rds")
xl.workbook.close()