diff --git a/R/sf_geoda.R b/R/sf_geoda.R
index 3f3c635..463832d 100644
--- a/R/sf_geoda.R
+++ b/R/sf_geoda.R
@@ -25,7 +25,7 @@ sf_to_geoda = function(sf_obj, ...) {
   }
 
   kwargs <- list(...)
-  with_table <- ifelse(hasArg("with_table"), kwargs$with_table, FALSE)
+  with_table <- ifelse(hasArg("with_table"), kwargs$with_table, TRUE)
 
   # geometries
   sf_geom <- st_geometry(sf_obj)