मैं नए आर उपयोगकर्ताओं को Google फॉर्म में जानकारी भेजने की अनुमति कैसे दे सकता हूं?

Question

मैं नए आर उपयोगकर्ताओं को Google फॉर्म में जानकारी भेजने की अनुमति कैसे दे सकता हूं? (आरसेलेनियम को कम से कम हेडलेस ब्राउजिंग के लिए सेट अप की आवश्यकता है, इसलिए यह सबसे अच्छा उम्मीदवार आईएमओ नहीं है लेकिन मुझे ऐसा कुछ याद आ रहा है जो इसे सबसे अच्छा विकल्प बनाता है)।

मेरे पास कुछ नए आर उपयोगकर्ता हैं जो मैं इंटरैक्टिव रूप से प्रतिक्रिया प्राप्त करना चाहता हूं और एक सुरक्षित स्थान पर भेजना चाहता हूं। मैंने जानकारी को पास करने के लिए Google फॉर्म चुने हैं, क्योंकि यह एक तरह से जानकारी भेजता है और उपयोगकर्ता को फॉर्म से बनाई गई स्प्रेडशीट तक पहुंचने की अनुमति नहीं देता है।

यहाँ एक url of this form है:

url <- "https://docs.google.com/forms/d/1tz2RPftOLRCQrGSvgJTRELrd9sdIrSZ_kxfoFdHiqD4/viewform" 

यहाँ संदर्भ देने के लिए है कि कैसे मैं उपयोगकर्ता के साथ बातचीत करने के लिए आर उपयोग कर रहा हूँ:

question <- function(message, opts = c("Yes", "No")){ 
    message(message) 
    ans <- menu(opts) 
    if (ans == "2") FALSE else TRUE 
} 

question("Was this information helpful?") 

मैं तो Google को TRUE/FALSE भेजना चाहते हैं उपरोक्त फॉर्म मैं आर के भीतर से ऊपर Google फॉर्म पर एक प्रतिक्रिया कैसे भेज सकता हूं जिस तरह से मैं उस कोड में एम्बेड कर सकता हूं जिसमें उपयोगकर्ता बातचीत करेगा और उपयोगकर्ता द्वारा कठिन सेटअप की आवश्यकता नहीं है?

आर पैकेज पर जोड़ें यदि वे कार्य पूरा करते हैं तो ठीक है।

Answer 1

आप एक पोस्ट क्वेरी भेज सकते हैं। यहाँ httr पैकेज का उपयोग एक उदाहरण:

उदाहरण के लिए:

library(httr) 
send_response<- 
    function(response){ 
    form_url <- "https://docs.google.com/forms/d/1tz2RPftOLRCQrGSvgJTRELrd9sdIrSZ_kxfoFdHiqD4/formResponse" 
    POST(form_url, 
     query = list(`entry.1651773982`=response) 
    ) 
    } 

तो फिर तुम यह कॉल कर सकते हैं:

send_response(question("Was this information helpful?"))