Bullet chart blog example fix

Hi everybody, I was wondering if someone could have a go at trying to fix the blog example of a bullet chart (http://moderndata.plot.ly/bullet-charts-in-r-using-plotly/) It seems like it should be reasonable simple, but i am new to plotly so dont know what is going wrong…any help would be much appreciated.

Kindest regards,

HLM