小编Ran*_*man的帖子

这可能是基本问题，但我一直无法弄清楚。

所以我有一个函数，它data.frame使用包从 MySQL 数据库中获取多个数据RMySQL并执行几个操作。

我希望它的输出进入全局环境，这样我就可以轻松运行其他函数。

例子

我做了一些阅读，发现<<-可以用于范围界定，但它似乎不起作用。

myfunc <- function() {
  `FETCH DF`
  `FETCH DF1`
  `PERFORM OPERATIONS`
  DF <<- DF
  DF1 <<- DF1
}

我只想DF进入DF1全局环境，这样我就可以执行以下操作

myfunc()
DF <- whateverfunc(DF)
DF1 <- whateverfunc(DF1)

复制

你们可以运行以下命令来重现我的 sim。

myfunc <- function() {
  DF <- data.frame(q = c(503,503,503,503,503), w = c(56,56,56,56,56))
  DF1 <- data.frame(V1 = c("A","B"), V2 = c("C", "D"))

  DF <<- DF
  DF1 <<- DF1
}

myfunc()

我已经使用plumber包创建了一个示例函数。

#* @get /tags

printmyname <- function(x) print(x)

当我运行以下过程时。

library(plumber)
r <- plumb("plumber_Usman2.R")  
r$run(host="0.0.0.0",port=8000)

API在本地主机上公开，可以使用的主机访问R server。

就像是

http：// host：8000 / tags？x = “此设计看起来很糟糕，请修复它”

我的问题是，由于该API是开放的，并且具有链接的任何人都可以对其进行公开访问，因此我想使用Oauth对其进行保护。我一直在做研究，但是什么也没碰到。如果有人可以在这方面指导我使用plumber任何可以确保我安全的软件包，我将不胜感激API. 。