mytable <- function(...) round(x = addmargins(A = cbind(as.matrix(x = ftable(...)),
                                                        as.matrix(x = prop.table(x = ftable(...),
                                                                                 margin = 2) * 100)),
                                              margin = 1),
                               digits = 1)

mytable(x = mtcars$gear,
        row.vars = 1)

    [,1]  [,2]
3     15  46.9
4     12  37.5
5      5  15.6
Sum   32 100.0

mytable(formula = am + vs ~ gear,
        data = mtcars)

    0_0 0_1 1_0 1_1 0_0   0_1   1_0   1_1
3    12   3   0   0 100  42.9   0.0   0.0
4     0   4   2   6   0  57.1  33.3  85.7
5     0   0   4   1   0   0.0  66.7  14.3
Sum  12   7   6   7 100 100.0 100.0 100.0

mytable(formula = am + vs ~ gear,
        data = mtcars,
        subset = cyl == 6)

 Error in eval(substitute(subset), data, env) :
  ..3 used in an incorrect context, no ... to look in