आर: उपयोगकर्ता इनपुट के लिए प्रतीक्षा करते समय गणना गणना

Question

क्या आप उपयोगकर्ता इनपुट की प्रतीक्षा करते समय आर में गणना करने का कोई तरीका देखते हैं?

मैं एक ऐसी स्क्रिप्ट लिख रहा हूं जो अलग-अलग प्रकार के भूखंडों को बनाता है जो उपयोगकर्ता इनपुट द्वारा परिभाषित किए जाते हैं, लेकिन पहले डेटा में लोड और संसाधित किया जाना चाहिए। लेकिन वास्तव में, उपयोगकर्ता परिभाषित करना शुरू कर सकता है कि प्रसंस्करण चल रहा है, जबकि वह पहले से ही चाहता है - यही वह है जो मैं करना चाहता हूं!

मुझे लगता है कि पैकेज आरडीएसएन मुझे आवश्यक कार्यक्षमता प्रदान कर सकता है, लेकिन मैं यह समझने में सक्षम नहीं था कि कैसे।

धन्यवाद!

Answer 1

आपने मुझे अधिक संदर्भ नहीं दिया, न ही पुन: उत्पन्न कोड, इसलिए मैं केवल एक साधारण उदाहरण प्रदान करूंगा। मैं आरडीएसएन पैकेज से परिचित नहीं हूं, इसलिए मैं एक समाधान प्रदान करने का उपयोग करूंगा जो मुझे पता है।

# create a function to prompt the user for some input 
readstuff = function(){ 
    stuff = readline(prompt = "Enter some stuff: ") 
    # Here is where you set the condition for the parameter 
    # Let's say you want it to be an integer 
    stuff = as.integer(stuff) 
    if(is.na(stuff)){ 
    return(readstuff()) 
    } else { 
    return(stuff) 
    } 
} 

parameter = readstuff() 

print(parameter) 
print(parameter + 10) 

यहां कुंजी "चलने" की बजाय स्क्रिप्ट को "स्रोत" करना है। आप RStudio के ऊपरी दाएं भाग पर "स्रोत" बटन पा सकते हैं। आप स्रोत के लिए source(yourscript) का भी उपयोग कर सकते हैं।

तो प्रत्येक पैरामीटर के लिए आप इनपुट के लिए उपयोगकर्ता को संकेत देना चाहते हैं, बस readstuff() पर कॉल करें। आप इसे अधिक सामान्य बनाने के लिए इसे थोड़ा छोटा कर सकते हैं। यदि वर्ग चरित्र है

# create a function to prompt the user for some input 
readstuff = function(promptMessage = "stuff", class = "integer"){ 
    stuff = readline(prompt = paste("Enter the", promptMessage, ": ")) 
    # Here is where you set the condition for the parameter 
    # Let's say you want it to be an integer 
    stuff = as(stuff, class) 
    if(is.na(stuff)){ 
    return(readstuff(promptMessage, class)) 
    } else { 
    return(stuff) 
    } 
} 

plotColor = readstuff("plot color", "character") 
size = readstuff("size parameter") 
xvarName = readstuff("x axis name", "character") 

df = data.frame(x = 1:100, y = 1:100) 

library(ggplot2) 
p = ggplot(df, aes(x = x, y = y, size = size, color = plotColor)) + 
    labs(x = xvarName) + geom_point() 
print(p) 

if(is.na(stuff)) बयान से काम नहीं चलेगा, लेकिन मुझे लगता है कि ठीक करने के लिए कैसे पर विस्तार में नहीं होगा, के बाद से इस सवाल का उपयोगकर्ता इनपुट के लिए प्रतीक्षा करने के तरीके के बारे में मुख्य रूप से है: उदाहरण के लिए। चेतावनी संदेशों को दबाने के तरीके भी हैं यदि उपयोगकर्ता ने इरादे से कुछ और दर्ज किया है, लेकिन फिर से, यहां इसके बारे में बात करने के लिए विषय बंद करें।

एक महत्वपूर्ण बात यह है कि आपको देखना है कि आर प्रिंट या प्लॉट करने के लिए आपको कुछ भी चाहिए, आपको इसे print() फ़ंक्शन के साथ लपेटने की आवश्यकता है। अन्यथा इसे सोर्सिंग प्रिंट नहीं करेगा और न ही कुछ साजिश करेगा। साथ ही, एक पैरामीटर में टाइप करते समय जो स्ट्रिंग या वर्ण होने का इरादा है, उद्धरण जोड़ें नहीं। उदाहरण के लिए, plotColor के लिए, प्रॉम्प्ट में "लाल" के बजाय लाल टाइप करें।

readline कोड के अधिकांश here द्वारा दर्शाया जाता है: