def get_named_vector(parameter_string, rname, tag = None):
    if not parameter_string:
        robjects.r('%s = NULL' % rname)
        return

    robjects.r('%s = vector()' % rname)

    extras = parameter_string.split('^')
    for extra in extras:
        pair = extra.split('|')
        if re.match('^[\d\.]+$', pair[1]):
            robjects.r('%s = c(%s, list("%s"=%s))' % (rname, rname, pair[0], Decimal(pair[1])))
        else:
            robjects.r('%s = c(%s, list("%s"="%s"))' % (rname, rname, pair[0], pair[1]))
connect a client with my Context, and track its sockets for cleanup
dataset/ETHPy150Open PublicMapping/DistrictBuilder/django/reporting/views.py/get_named_vector--crossover with--dataset/ETHPy150Open ipython/ipython-py3k/IPython/parallel/tests/clienttest.py/ClusterTestCase.connect_client