Replacing numbers with labels in the ticks of BarLegend?

I want to create a BarLegend consisting of the colors

Table[Lighter[Red, 1 - i], {i, 0.3, 1, 0.15}]

and than to remove from the bar the numbers on its left.

I what I have at the moment is this:

bar = BarLegend[{Table[Lighter[Red, 1 - i], {i, 0.3, 1, 0.15}], {0, 
    1}}, LegendMarkerSize -> 350, LabelStyle -> Directive[Black, 16]]

And I want to add the words Low and High to the number 0 and 1, so to get something like this:

(This was created with an image editor)

How Can I do that?

I tried passing None instead of {0,1} in my command but that produced no graphics at all.

Using undocumented options

BarLegend[{Table[Lighter[Red, 1 - i], {i, 0.3, 1, 0.15}], {0, 1}},
 LegendMarkerSize -> 350,
 LabelStyle -> Directive[Black, 16],
 "Ticks" -> {0, 1},
 "TickLabels" -> {"Low", "High"}]

3790plot.png

More details here.

Thanks!