src_tbls() includes all tbls. (#4327)

closes #4326
tidyverse · May 6, 2019 · 9c6f59e · 9c6f59e
1 parent c3b7df6
commit 9c6f59e
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/src-local.r b/R/src-local.r
@@ -43,7 +43,7 @@ src_df <- function(pkg = NULL, env = NULL) {
 
 #' @export
 src_tbls.src_local <- function(x, ...) {
-  objs <- ls(envir = x$env)
+  objs <- ls(envir = x$env, all.names = TRUE)
   Filter(function(obj) is.data.frame(get(obj, envir = x$env)), objs)
 }
 

diff --git a/tests/testthat/test-copy_to.R b/tests/testthat/test-copy_to.R
@@ -63,3 +63,10 @@ test_that("src_sqlite() errs if path does not exist", {
     fixed = TRUE
   )
 })
+
+test_that("src_tbls() includes all tbls (#4326)", {
+  expect_equal(
+    src_tbls(src_df(env = env(. = iris))),
+    "."
+  )
+})