xx <- "gee(formula = breaks ~ tension, id = wool, data = warpbreaks)"
sub(".*\\bid\\s*=\\s*(\\w+).*", "\\1", xx)
sub(".*\\bid\\s*=\\s*([^,]+).*", "\\1", xx)
eHggPC0gImdlZShmb3JtdWxhID0gYnJlYWtzIH4gdGVuc2lvbiwgaWQgPSB3b29sLCBkYXRhID0gd2FycGJyZWFrcykiCnN1YigiLipcXGJpZFxccyo9XFxzKihcXHcrKS4qIiwgIlxcMSIsIHh4KQpzdWIoIi4qXFxiaWRcXHMqPVxccyooW14sXSspLioiLCAiXFwxIiwgeHgp