Fix tests and deprecations on Julia 0.6

Author: nalimilan

Diff for: REQUIRE

@@ -5,6 +5,6 @@ StatsBase 0.11.0
 GZip
 SortingAlgorithms
 Reexport
-Compat 0.8.4
+Compat 0.13.0
 FileIO 0.1.2
 Juno 0.2.4

Diff for: src/other/utils.jl

@@ -43,7 +43,7 @@ function makeidentifier(s::AbstractString)
         end
     end
 
-    return takebuf_string(res)
+    return String(take!(res))
 end
 
 function make_unique(names::Vector{Symbol}; allow_duplicates=true)

Diff for: src/statsmodels/formula.jl

@@ -203,9 +203,9 @@ evt(a) = Any[a]
 function Terms(f::Formula)
     rhs = condense(distribute(dospecials(f.rhs)))
     tt = unique(getterms(rhs))
-    tt = tt[!(tt .== 1)]             # drop any explicit 1's
-    noint = (tt .== 0) | (tt .== -1) # should also handle :(-(expr,1))
-    tt = tt[!noint]
+    tt = tt[!(tt .== 1)]              # drop any explicit 1's
+    noint = (tt .== 0) .| (tt .== -1) # should also handle :(-(expr,1))
+    tt = tt[(!).(noint)]
     oo = Int[ord(t) for t in tt]     # orders of interaction terms
     if !issorted(oo)                 # sort terms by increasing order
         pp = sortperm(oo)

Diff for: test/io.jl

@@ -517,17 +517,17 @@ module TestIO
     df = DataFrame(Fish = ["Suzy", "Amir"], Mass = [1.5, Nullable()])
     io = IOBuffer()
     show(io, "text/html", df)
-    str = takebuf_string(io)
+    str = String(take!(io))
     @test str == "<table class=\"data-frame\"><tr><th></th><th>Fish</th><th>Mass</th></tr><tr><th>1</th><td>Suzy</td><td>1.5</td></tr><tr><th>2</th><td>Amir</td><td>#NULL</td></tr></table>"
 
     # test limit attribute of IOContext is used
     df = DataFrame(a=collect(1:1000))
     ioc = IOContext(IOBuffer(), displaysize=(10, 10), limit=false)
     show(ioc, "text/html", df)
-    @test length(takebuf_string(ioc.io)) > 10000
+    @test length(String(take!(ioc.io))) > 10000
 
     io = IOBuffer()
     show(io, "text/html", df)
-    @test length(takebuf_string(io)) < 10000
+    @test length(String(take!(io))) < 10000
 
 end

Diff for: test/show.jl

@@ -49,7 +49,7 @@ module TestShow
     df = DataFrame(Fish = ["Suzy", "Amir"], Mass = [1.5, Nullable()])
     io = IOBuffer()
     show(io, df)
-    str = takebuf_string(io)
+    str = String(take!(io))
     @test str == """
 2×2 DataFrames.DataFrame
 │ Row │ Fish │ Mass  │