testlist <- list(component = 1836034753L, urls = c(NA, "qunhsyo", NA, "xyguqelvx",  NA, "tgugwviql", NA, NA, "qsrqmzgklnbsilul", "zmnlill", NA, "jkzktbg",  "rqclgizxmotxikntswwb", "jmljbgiwjenzzoeoolev", "idpvpfhzfxlfdrdzxekh",  "jo", NA, "qzaxioopcjjee", "tmtzwvwqglmyoznijqbs", "vponncurdqnbh",  NA, "safbzscmzowhzfsyfxer", "qrsywdifbeotxgpwvuem", NA, "lv",  NA, NA, NA, "axiiceupzrqegiy", "qxohmjwazoqghlzusgrj", NA, NA,  "dyfbhsphvdokwcrellhx", "lpbmliapcxocuhtjylmt", "ytotpnivdghucotglhcj",  "myomzfipwnitvzefsaxe", NA, NA, NA, "cmtrengqgsqxrhljqsmq", "uuzwfkh",  "rclbjpnbeksroiengcnv", "anlbhmvug", "chzrrqgbquptnugbtlvj",  "jjjfyqirfrrafyoyriix", NA, "iiguhuwxehhxaztzgaaa", "wibwgofgeyeygquyrhkl",  "hkwhcp", "d", "weqcrlwz", "ztefspkcaqdbyvvqbdvj", NA, "vvkrxvjnmicqxmybnota",  NA, NA, "xysdzvzjfyktbuuwitmk", "sxmprbszpnndzdmgfkpu", "mehyq",  "", "mbvsxoghyqvqadehtbvo", "yospvvjjxnc", "iwllbuoqu", "cc",  "dimkezoqdfnkwgniogub", "lxfoi", "mavsipzzqgagl", "svybnjkqpl",  "koggmklhzhkibv", "ishhslojbxovuuhhjtli", NA, "petdsnxxdleqqyfvcgrd",  "sghuzqkgdgpirtwxuwal", "zdfxvkmedubfzdafd", "mteodxqdsuljvistfgke",  NA, "xukwodzaaeipmybgcbfz", NA, NA, NA, NA, "biwsegjpgxddabqhbkqr",  "euolozdiuhpdzmxucedz", NA, "jjs", "ykadbznnebxtjvbmkewt", NA,  "abgsyciwiflhwfizgbmh", NA, "xvi", NA, NA, "leeklcnza", "eipghsuncw",  "lhqytnavhhsprtnnhdzu", NA))
result <- do.call(urltools:::get_component_,testlist)
str(result)