如何允许新R用户向Google表单发送信息？

Question

如何允许新R用户向Google表单发送信息？(RSelenium需要一些设置,至少对于无头浏览,所以它不是最好的候选IMO,但我可能会遗漏一些让它成为最佳选择).

我有一些新的R用户,我希望以交互方式获得响应并发送到安全的位置.我选择了Google表单来传递信息,因为它允许单向发送信息,并且不允许用户访问从表单创建的电子表格.

这是这种形式的网址:

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

为了给出上下文,我将如何使用R与用户进行交互:

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

question("Was this information helpful?")

我想,然后发送TRUE/ FALSE上述谷歌形式.如何以可以嵌入用户将与之交互的代码并且不需要用户难以设置的方式向R内部的Google表单发送回复？

如果他们完成任务,添加R包就没问题.

Answer 1

您可以发送POST查询.这是一个使用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?"))