readline不会提示用户从Rstudio中的Rprofile.site输入

Question

我在文件中有这个小功能：

library(grDevices) # needed in Rprofile.site
readfun <- function()
  {
  message("interactive: ", interactive()) # tells TRUE
  rl <- readline("Write something: ")
  message("rl value is: ", rl)
  }
readfun()

我可以在R控制台中source，只要在Rstudio中就可以了。
我可以在Rrofile.site中写入source("thatfile.R")，并通过R.exe调用Rterm来按预期提示输入。 （顺便说一句，我在Windows上）。

但是以Rstudio开头的R不会提示用户输入。
而是将不执行第一个键入的命令，而是将其发送回消息。

这可能与Wait for user input from keyboard in R before next line of code - readline - Rstudio有关，但是我找不到找到使其工作的方法...