add an internal 'istable' method

Author: tlienart

src/data_utils.jl

@@ -139,6 +139,19 @@ schema(::LightInterface, ::Val{:other}, X; kw...) = errlight("schema")
 
 schema(::LightInterface, ::Val{:table}, X; kw...) = errlight("schema")
 
+# ------------------------------------------------------------------------
+# istable
+
+"""
+    istable(X)
+
+Return true if `X` is tabular.
+"""
+istable(X) = istable(get_interface_mode(), vtrait(X))
+istable(::Mode, ::Val{:other}) = false
+
+istable(::Mode, ::Val{:table}) = true
+
 # ------------------------------------------------------------------------
 # decoder
 

test/data_utils.jl

@@ -80,6 +80,16 @@ end
     @test sch.scitypes[2] <: Multiclass
 end
 # ------------------------------------------------------------------------
+@testset "istable" begin
+    setlight()
+    X = rand(5)
+    @test !M.istable(X)
+    X = randn(5,5)
+    @test !M.istable(X)
+    X = DataFrame(A=rand(10))
+    @test M.istable(X)
+end
+# ------------------------------------------------------------------------
 @testset "decoder-light" begin
     setlight()
     x = 5