कैसे "कोई लाइनों इनपुट में उपलब्ध है" के आर में त्रुटि को ठीक?

Question

मैं क्या करने की जरूरत लिंक के सैकड़ों से डेटा पढ़ने की है, और उन के बीच लिंक की कुछ इसलिए कोई डेटा नहीं है, कोड यहाँ के रूप में, "यह कहते हुए कोई लाइनों उपलब्ध

urls <-paste0("http://somelink.php?station=",station, "&start=", Year, "01-01&etc") 
myData <- lapply(urls, read.table, header = TRUE, sep = '|') 

एक त्रुटि पॉप अप होता है इनपुट में ", मैंने" कोशिश करें "का उपयोग करने का प्रयास किया है, लेकिन एक ही त्रुटि के साथ, कृपया मदद करें, धन्यवाद।

Answer 1

यहाँ 2 संभव समाधान (अपरीक्षित क्योंकि आपके उदाहरण प्रतिलिपि प्रस्तुत करने योग्य नहीं है) कर रहे हैं:

try का उपयोग करना:

myData <- lapply(urls, function(x) { 
    tmp <- try(read.table(x, header = TRUE, sep = '|')) 
    if (!inherits(tmp, 'try-error')) tmp 
}) 

tryCatch का उपयोग करना:

myData <- lapply(urls, function(x) { 
    tryCatch(read.table(x, header = TRUE, sep = '|'), error=function(e) NULL) 
}) 

Answer 2

इस मदद करता है?

dims <- sapply(myData, dim)[2,] 
    bad_Ones <- myData[dims==1] 
    good_Ones <- myData[dims>1] 

myData अभी भी स्टेशन पेज बंद कुछ पकड़ लेता है, तो उपरोक्त कोड दो अलग-अलग समूहों में myData सूची बांट देना चाहिए। good_Ones वह सूची होगी जिसमें आप काम करना चाहते हैं। के रूप में मुझे लगता है कि वह जगह है जहाँ त्रुटि है, (ऊपर यह सोचते हैं, सही है निश्चित रूप से)