Add an empty string as third argument to the If function:
If[fp == True, InputField[ Dynamic[ Plot[f, {x, xL, xR}, Dynamic[PlotLabel -> f], ImageSize -> Full] ], FieldSize -> {30, 15} ], "" ]
Thanks