Question

我已经尝试了一系列与我合作的功能，并且我正在努力弄清楚为什么这项任务不起作用。以下是我使用的功能：

new_timeline <- function() {
  timeline = structure(list(), class="timeline")

  timeline$title <- list("text" = list("headline" = NULL, "text" = NULL),
                         "start_date" = list("year" = NULL, "month" = NULL, "day" = NULL),
                         "end_date" = list("year" = NULL, "month" = NULL, "day" = NULL))

  return(timeline)
}

.add_date <- function(self, date, time_type) {
  valid_date <- stringr::str_detect(date, "^[0-9]{4}(-[0-9]{1,2}){0,2}$")
  if (!valid_date) {
    stringr::str_interp("Your ${time_type} date does not appear to be formatted correctly. It must be of the form 'yyyy-mm-dd'. Only the year is required.") %>% stop()
  }

  date_elements <- date %>% as.character() %>% stringr::str_split(" ") %>% unlist()
  date <- date_elements[1] %>% stringr::str_split("-") %>% unlist()
  stringr::str_interp("self$title$${time_type}_date$year <- date[1]") %>% parse(text = .) %>% eval()
  if (!is.na(date[2])) stringr::str_interp("self$title$${time_type}_date$month <- date[2]") %>% parse(text = .) %>% eval()
  if (!is.na(date[3])) stringr::str_interp("self$title$${time_type}_date$day <- date[3]") %>% parse(text = .) %>% eval()

  return(self)
}

edit_title <- function(self, headline = NULL, text = NULL, start_date = NULL, end_date = NULL) {

  if (class(self) != "timeline") stop("The object passed must be a timeline object.")
  if (is.null(headline) && is.null(self$title$text$headline)) stop("Headline cannot be empty when adding a new title.")

  if (!is.null(headline)) self$title$text$headline <- headline
  if (!is.null(text)) self$title$text$text <- text
  if (!is.null(start_date)) self <- .add_date(self, date = start_date, time_type = "start")
  if (!is.null(end_date)) self <- .add_date(self, date = end_date, time_type = "end")

  return(self)
}

编辑：上述代码已根据评论中的请求严重减少。代码仍足以重现错误。

我知道这有点啰嗦，所以我道歉。第一个函数建立一个新的时间轴对象。第三个函数允许我们更改时间轴对象的标题，第二个函数是一个处理日期的辅助函数。代码将使用如下：

library(magrittr)
#devtools::install_github("hadley/stringr")
library(stringr)

tl <- new_timeline()
tl <- tl %>% edit_title(headline = "My Timeline", text = "Example", start_date = "2015-10-18")

代码运行时没有错误，但是当我调用tl$title$start_date$year时，它会以NULL的形式返回。使用this previous question I asked中的答案，我尝试在envir = globalenv()函数中设置eval。当我这样做时，该函数返回一个错误，指出无法找到对象self。

所以我认为self保留在parent.frame（）中。所以我将这两个添加到列表中：envir = list(globalenv(), parent.frame())。这会导致函数无错误地运行，但仍然没有分配。

我哪里错了？提前谢谢！

Answer 1

正如评论中所提到的，我认为您可以取消所有代码解析，只需在[[中为您的作业传递变量。无论如何，当你使用管道操作符时，会发生一堆函数包装，因此确定要返回多少帧是痛苦的。以下是修改.add_date函数的几个解决方案。

您已经使用<<-找到了一个，因为它会搜索父环境，直到找到变量（或者不在全局中分配它）。

另一个只是存储函数environment()并将其传递给eval。

第三个将计算你走了多少帧，并使用sys.frame告诉eval要查看哪个环境。

.add_date <- function(self, date, time_type) {
    valid_date <- stringr::str_detect(date, "^[0-9]{4}(-[0-9]{1,2}){0,2}$")
    if (!valid_date) {
        stringr::str_interp("Your ${time_type} date does not appear to be formatted correctly. It must be of the form 'yyyy-mm-dd'. Only the year is required.") %>% stop()
    }

    ## Examining environemnts
    e <- environment()                                                              # current env
    efirst <- sys.nframe()                                                          # frame number
    print(paste("Currently in frame", efirst))
    envs <- stringr::str_interp("${date}") %>% parse(text=.) %>% {.; sys.frames()}  # list of frames
    elast <- stringr::str_interp("${date}") %>% parse(text=.) %>% {.; sys.nframe()} # number of last
    print(paste("Went", elast, "frames deep."))

    ## Go back this many frames in eval
    goback <- efirst-elast

    date_elements <- date %>% as.character() %>% stringr::str_split(" ") %>% unlist()
    date <- date_elements[1] %>% stringr::str_split("-") %>% unlist()

    ## Solution 1: use sys.frame
    stringr::str_interp("self$title$${time_type}_date$year <- date[1]") %>%
      parse(text = .) %>% eval(envir=sys.frame(goback)) 

    ## Solution 2: use environment defined in function
    if (!is.na(date[2])) stringr::str_interp("self$title$${time_type}_date$month <- date[2]") %>%
      parse(text = .) %>% eval(envir=e)

    return(self)
}

在函数中使用eval（）时应该调用哪个环境？

1 个答案: