Mishandled units

[haberdashPI]

Although I'm managing some data that includes Unitful axis values, some data still ends up sending Untiful numbers to R (which then throws an error). Example:

br = bandwidth_ratio(source[3s .. 10s],mixture[3s .. 10s],settings);
typeof(br[1])
plotaxes(br[1])

Throws this error:

MethodError: no method matching sexpclass(::Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}})
Closest candidates are:
  sexpclass(!Matched::Nothing) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:218
  sexpclass(!Matched::Missing) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:219
  sexpclass(!Matched::Symbol) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:222
  ...

Stacktrace:
 [1] sexp(::Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:214
 [2] setindex!(::Ptr{VecSxp}, ::Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}, ::Int64) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/methods.jl:188
 [3] sexp(::Type{RCall.RClass{:list}}, ::StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/base.jl:295
 [4] sexp at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:214 [inlined]
 [5] setindex!(::Ptr{VecSxp}, ::StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}, ::Int64) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/methods.jl:188
 [6] sexp(::Type{RCall.RClass{:list}}, ::OrderedCollections.OrderedDict{Any,Any}) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/base.jl:281
 [7] sexp at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:214 [inlined]
 [8] setattrib! at /Users/davidlittle/.julia/packages/RCall/iojZI/src/methods.jl:340 [inlined]
 [9] sexp(::Type{RCall.RClass{:array}}, ::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/axisarray.jl:25
 [10] sexp(::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:214
 [11] sexp(::Type{RCall.RClass{:list}}, ::DataFrame) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/dataframe.jl:25
 [12] sexp at /Users/davidlittle/.julia/packages/RCall/iojZI/src/convert/default.jl:214 [inlined]
 [13] setindex!(::Ptr{EnvSxp}, ::DataFrame, ::String) at /Users/davidlittle/.julia/packages/RCall/iojZI/src/methods.jl:536
 [14] macro expansion at /Users/davidlittle/.julia/packages/RCall/iojZI/src/macros.jl:66 [inlined]
 [15] #ggplot_axes_#40(::Tuple{}, ::Function, ::DataFrame, ::Tuple{PlotAxes.ContinuousPlotAxis{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}, ::Symbol) at /Users/davidlittle/.julia/packages/PlotAxes/OxaSg/src/ggplot2.jl:30
 [16] (::getfield(PlotAxes, Symbol("#kw##ggplot_axes_")))(::NamedTuple{(:args,),Tuple{Tuple{}}}, ::typeof(PlotAxes.ggplot_axes_), ::DataFrame, ::Tuple{PlotAxes.ContinuousPlotAxis{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}, ::Symbol) at ./none:0
 [17] #ggplot_axes#39(::Base.Iterators.Pairs{Union{},Union{},Tuple{},NamedTuple{(),Tuple{}}}, ::Function, ::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/PlotAxes/OxaSg/src/ggplot2.jl:26
 [18] ggplot_axes(::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/PlotAxes/OxaSg/src/ggplot2.jl:19
 [19] #plotaxes#1(::Base.Iterators.Pairs{Union{},Union{},Tuple{},NamedTuple{(),Tuple{}}}, ::Function, ::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/PlotAxes/OxaSg/src/PlotAxes.jl:75
 [20] plotaxes(::AxisArray{Float64,1,Array{Float64,1},Tuple{Axis{:time,StepRangeLen{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}},Base.TwicePrecision{Quantity{Float64,𝐓,Unitful.FreeUnits{(s,),𝐓,nothing}}}}}}}) at /Users/davidlittle/.julia/packages/PlotAxes/OxaSg/src/PlotAxes.jl:71
 [21] top-level scope at In[33]:1