Fix for #172

Author: dbosak01

R/libname.R

@@ -375,7 +375,7 @@ libname <- function(name, directory_path, engine = "rds",
           dat <- exec_spec(dat, import_specs, nm)
 
       } else if (ext == "sas7bdat") {
-        
+
         dat <- read_sas(fp)
         if (!is.null(import_specs))
           dat <- exec_spec(dat, import_specs, nm)

R/utilities.R

@@ -397,6 +397,7 @@ get_colspec_csv <- function(type_string) {
 #' @noRd
 exec_spec <- function(x, spcs, nm) {
 
+ # browser()
  ret <- x
 
  if (!is.null(spcs)) {  
@@ -468,7 +469,9 @@ exec_spec <- function(x, spcs, nm) {
         attr(ret[[nm]], atnm) <- attr(x[[nm]], atnm)
        } else {
          if (is.null(colspcs[[nm]])) {
-           attr(ret[[nm]], atnm) <- attr(x[[nm]], atnm)
+           if (nrow(x) > 0) {
+            attr(ret[[nm]], atnm) <- attr(x[[nm]], atnm)
+           }
          }
        }
 

tests/testthat/data/empty/empty.sas7bdat

@@ -1785,3 +1785,25 @@ test_that("ds50: works as expected with source.all().", {
 
 })
 
+
+test_that("ds51: delete() works with NA in data frame.", {
+  
+  
+  df1 <- data.frame(
+    var = c(NA,0),
+    bar = c(0, 1)
+  )
+  
+  
+  datastep(df1,
+           {
+             if (var %eq% 0) {
+               delete() 
+             }
+           }) -> df2
+  
+  
+  expect_equal(TRUE, TRUE)
+
+})
+

tests/testthat/test-datastep.R

@@ -590,6 +590,18 @@ test_that("lib27: labels on data are retained after where clause", {
 
 
 
+test_that("lib28: empty dataset works as expected", {
+  
+  pth <- file.path(base_path, "empty")
+  
+  libname(testme, pth, "sas7bdat")
+  
+  
+  # No error
+  expect_equal(TRUE, TRUE)
+  
+})
+
 
 # 
 # test_that("lib24: lib_export() creates new library.", {