ignore refpool type in intermediates for nlevlstbl (#56)

* ignore refpool type in intermediates for nlevlstbl

Author: palday

Project.toml

@@ -1,7 +1,7 @@
 name = "MixedModelsSim"
 uuid = "d5ae56c5-23ca-4a1f-b505-9fc4796fc1fe"
 authors = ["Phillip Alday", "Douglas Bates", "Lisa DeBruine", "Reinhold Kliegl"]
-version = "0.2.5"
+version = "0.2.6"
 
 [deps]
 LinearAlgebra = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"

src/utilities.jl

@@ -99,15 +99,17 @@ julia> nlevstbl(:item, 9, :level => ["low", "medium", "high"])
 """
 function nlevstbl(nm::Symbol, n::Integer, vars::Pair{Symbol, Vector{String}}...)
     nms = [nm]
-    vals = [PooledArray(nlevels(n, uppercase(first(string(nm)))), signed=true, compress=true)]
+    # need to specify PooledArray[] so that the array doesn't specialize on
+    # PooledArrays's type parameters
+    vals = PooledArray[PooledArray(nlevels(n, uppercase(first(string(nm)))); signed=true, compress=true)]
     inner = 1
     for var in vars
         levs = last(var)
         nlev = length(levs)
         rept = inner * nlev
         q, r = divrem(n, rept)
         iszero(r) || throw(ArgumentError("n = $n is not a multiple of repetition block size $rept"))
-        push!(vals, PooledArray(repeat(levs, inner=inner, outer=q), signed=true, compress=true))
+        push!(vals, PooledArray(repeat(levs, inner=inner, outer=q); signed=true, compress=true))
         push!(nms, first(var))
         inner = rept
     end

test/utilities.jl

@@ -38,6 +38,11 @@ end
     @test length(twofac) == 3
     @test length(first(twofac)) == 18
     @test_throws ArgumentError nlevstbl(:item, 18, :level => ["low", "high"], :blur => ["N", "Y"])
+
+    item = nlevstbl(:subj, 128, :trt => ["C", "T"])
+    @test item.subj isa PooledVector{String, Int16, Vector{Int16}}
+    @test item.trt isa PooledVector{String, Int8, Vector{Int8}}
+    @test length(item.subj) == length(item.trt)
 end
 
 @testset "pooled!" begin