Handle Statistics dep as Pkg extension (#1172)

* Handle Statistics dep as Pkg extension

* rm import

* `using` unexported functions

* Apply suggestions from code review

Co-authored-by: Fredrik Ekre <ekrefredrik@gmail.com>

* declare usage of Statistics in tests

* list Statistics.jl in extras

* Apply suggestions from code review

Co-authored-by: Thomas Christensen <tchr@mit.edu>

* broken test passes on v1.10

---------

Co-authored-by: Fredrik Ekre <ekrefredrik@gmail.com>
Co-authored-by: Thomas Christensen <tchr@mit.edu>

Author: 3 people

Project.toml

@@ -1,13 +1,19 @@
 name = "StaticArrays"
 uuid = "90137ffa-7385-5640-81b9-e52037218182"
-version = "1.5.26"
+version = "1.6.0"
 
 [deps]
 LinearAlgebra = "37e2e46d-f89d-539d-b4ee-838fcccc9c8e"
 Random = "9a3f8284-a2c9-5f02-9a11-845980a1fd5c"
 StaticArraysCore = "1e83bf80-4336-4d27-bf5d-d5a4f845583c"
 Statistics = "10745b16-79ce-11e8-11f9-7d13ad32a3b2"
 
+[weakdeps]
+Statistics = "10745b16-79ce-11e8-11f9-7d13ad32a3b2"
+
+[extensions]
+StaticArraysStatisticsExt = "Statistics"
+
 [compat]
 julia = "1.6"
 StaticArraysCore = "~1.4.0"
@@ -16,8 +22,9 @@ StaticArraysCore = "~1.4.0"
 BenchmarkTools = "6e4b80f9-dd63-53aa-95a3-0cdb28fa8baf"
 InteractiveUtils = "b77e0a4c-d291-57a0-90e8-8db25a27a240"
 OffsetArrays = "6fe1bfb0-de20-5000-8ca7-80f57d26f881"
+Statistics = "10745b16-79ce-11e8-11f9-7d13ad32a3b2"
 Test = "8dfed614-e22c-5e08-85e1-65c5234f0b40"
 Unitful = "1986cc42-f94f-5a68-af5c-568840ba703d"
 
 [targets]
-test = ["InteractiveUtils", "Test", "BenchmarkTools", "OffsetArrays", "Unitful"]
+test = ["InteractiveUtils", "Test", "BenchmarkTools", "OffsetArrays", "Statistics", "Unitful"]

ext/StaticArraysStatisticsExt.jl

@@ -0,0 +1,15 @@
+module StaticArraysStatisticsExt
+
+import Statistics: mean
+
+using StaticArrays
+using StaticArrays: _InitialValue, _reduce, _mapreduce
+
+_mean_denom(a, ::Colon) = length(a)
+_mean_denom(a, dims::Int) = size(a, dims)
+_mean_denom(a, ::Val{D}) where {D} = size(a, D)
+
+@inline mean(a::StaticArray; dims=:) = _reduce(+, a, dims) / _mean_denom(a, dims)
+@inline mean(f::Function, a::StaticArray; dims=:) = _mapreduce(f, +, dims, _InitialValue(), Size(a), a) / _mean_denom(a, dims)
+
+end # module

src/StaticArrays.jl

@@ -8,8 +8,6 @@ import Base: getindex, setindex!, size, similar, vec, show, length, convert, pro
              iszero, sum, prod, count, any, all, minimum, maximum, extrema,
              copy, read, read!, write, reverse
 
-import Statistics: mean
-
 using Random
 import Random: rand, randn, randexp, rand!, randn!, randexp!
 using Core.Compiler: return_type
@@ -133,6 +131,10 @@ include("flatten.jl")
 include("io.jl")
 include("pinv.jl")
 
+@static if !isdefined(Base, :get_extension) # VERSION < v"1.9-"
+    include("../ext/StaticArraysStatisticsExt.jl")
+end
+
 include("precompile.jl")
 _precompile_()
 

src/mapreduce.jl

@@ -301,14 +301,6 @@ reduce(::typeof(hcat), A::StaticArray{<:Tuple,<:StaticVecOrMatLike}) =
 
 @inline Base.in(x, a::StaticArray) = _mapreduce(==(x), |, :, false, Size(a), a)
 
-_mean_denom(a, dims::Colon) = length(a)
-_mean_denom(a, dims::Int) = size(a, dims)
-_mean_denom(a, ::Val{D}) where {D} = size(a, D)
-_mean_denom(a, ::Type{Val{D}}) where {D} = size(a, D)
-
-@inline mean(a::StaticArray; dims=:) = _reduce(+, a, dims) / _mean_denom(a, dims)
-@inline mean(f::Function, a::StaticArray; dims=:) = _mapreduce(f, +, dims, _InitialValue(), Size(a), a) / _mean_denom(a, dims)
-
 @inline minimum(a::StaticArray; dims=:) = _reduce(min, a, dims) # base has mapreduce(identity, scalarmin, a)
 @inline minimum(f::Function, a::StaticArray; dims=:) = _mapreduce(f, min, dims, _InitialValue(), Size(a), a)
 

test/svd.jl

@@ -78,7 +78,11 @@ using StaticArrays, Test, LinearAlgebra
         # This only seems to work on v"1.5" due to unknown compiler improvements; seems
         # to have stopped working again on v"1.6" and later?
         svd_full_false(A) = svd(A, full=false)
-        @test_broken @inferred(svd_full_false(m_sing2)).S ≈ svd(Matrix(m_sing2)).S
+        if VERSION < v"1.10-"
+            @test svd_full_false(m_sing2).S ≈ svd(Matrix(m_sing2)).S
+        else
+            @test @inferred(svd_full_false(m_sing2)).S ≈ svd(Matrix(m_sing2)).S
+        end
 
         @testinf svd(mc_sing) \ v ≈ svd(Matrix(mc_sing)) \ Vector(v)
         @testinf svd(mc_sing) \ vc ≈ svd(Matrix(mc_sing)) \ Vector(vc)