Hold a fraction in unreduced terms?

Questions
1

This is trivial but for the life of me I cannot find a reference in the docs and it has perplexed me forever. Either I have forgotten, not unlikely & more common as I grow longer of tooth, or I never knew. I unsuccessfully searched the forum for _unreduced _ and fraction

How can I hold a fraction in unreduced terms Mathematica. For instance how can I get the example to display as:
{4/18, 6/18, 8/18}

    r = {2, 3, 4};
    r/Total[r]
    HoldForm[r/Total[r]]
    
    {2/9, 1/3, 4/9}
    
r={2,3,4};
r/Total[r]
HoldForm[r/Total[r]]
{2/9,1/3,4/9}
r/Total[r]

HoldForm[] clearly is not the answer.

2

Try this:

r = {2, 3, 4};
r/ToString[Total[r]]

3

Thanks. This is a solution I hadn’t considered since it turns the denominator into a string & which could be a bit of time bomb with my erratic work style . It may be the only way to see what I want.

4

Try that

In[70]:= Clear[r]
         r = {2, 3, 4};
         (r /. x_Integer -> If[Divisible[Total[r], x], Hold[x], x])/Total[r]
Out[72]= {2/9, Hold[3]/9, 4/9}
5

Thank you, Udo, I’ll give that a shot.