ARROW-10834: [R] Fix print method for SubTreeFileSystem

This PR modifies ``` `$.SubTreeFileSystem` ``` to return `NULL` if the named object is not found in the object. This allows the `print()` method of `ArrowObject` to print `SubTreeFileSystem` objects without error. Closes apache#9168 from ianmcook/ARROW-10834 Authored-by: Ian Cook <[email protected]> Signed-off-by: Neal Richardson <[email protected]>
zhixingheyi-tian · Jan 12, 2021 · af664c5 · af664c5
1 parent 3126553
commit af664c5
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/r/R/filesystem.R b/r/R/filesystem.R
@@ -418,10 +418,12 @@ SubTreeFileSystem$create <- function(base_path, base_fs = NULL) {
 `$.SubTreeFileSystem` <- function(x, name, ...) {
   # This is to allow delegating methods/properties to the base_fs
   assert_that(is.string(name))
-  if (name %in% ls(x)) {
+  if (name %in% ls(envir = x)) {
     get(name, x)
-  } else {
+  } else if (name %in% ls(envir = x$base_fs)) {
     get(name, x$base_fs)
+  } else {
+    NULL
   }
 }