匹配的括号显示为不匹配

Question

convertToClockTime <- function(file, lag = Latency) {
  colnames(adamcorrectfile)[which(colnames(adamcorrectfile) == "X.1")] <- "Calculated.Run.Time"
  adamcorrectfile$Calculated.Run.Time <- round(adamcorrectfile$Calculated.Run.Time, digits = 0)
  adamcorrectfile$LPRS.Time <- as.POSIXct(adamcorrectfile$LPRS.Time, format = "%H:%M")


  adamcorrectfile <- adamcorrectfile[order(adamcorrectfile$LPRS.Time),]
  output <- colnames(adamcorrectfile)
  for (j in unique(adamcorrectfile$Folder)) {
    adamcorrectfile.Folder <- adamcorrectfile[which(adamcorrectfile$Folder == "print 1"),]
    adamcorrectfile.Folder$start.time <- adamcorrectfile.Folder$LPRS.Time + lag
    adamcorrectfile.Folder$end.time <- adamcorrectfile.Folder$start.time + adamcorrectfile.Folder$`Calculated.Run.Time`
    for (i in 2:nrow(adamcorrectfile)) {
      adamcorrectfile.Folder[i,"start.time"] <- max(adamcorrectfile.Folder[i,"LPRS.Time"] + 15*60, adamcorrectfile[i-1, "end.time"]
                                                    adamcorrectfile.Folder[i, "end.time"] <- adamcorrectfile.Folder[i,"start.time"] + adamcorrectfile.Folder[i,"Calculated.Run.Time"]
        }
  output <- rbind(output, adamcorrectfile.Folder)
  return(output)
      }
  }

第 1 行显示不匹配的左括号“{”，即使它是匹配的。任何帮助。 R 缩进是否有一些棘手的事情，它似乎只是因为缩进而不断弹出错误

Answer 1

看起来问题是你没有在 for 循环中间的 max 函数上关闭括号。

这是工作代码：

convertToClockTime <- function(file, lag = Latency) {
        colnames(adamcorrectfile)[which(colnames(adamcorrectfile) == "X.1")] <- "Calculated.Run.Time"
        adamcorrectfile$Calculated.Run.Time <- round(adamcorrectfile$Calculated.Run.Time, digits = 0)
        adamcorrectfile$LPRS.Time <- as.POSIXct(adamcorrectfile$LPRS.Time, format = "%H:%M")


        adamcorrectfile <- adamcorrectfile[order(adamcorrectfile$LPRS.Time),]
        output <- colnames(adamcorrectfile)
        for (j in unique(adamcorrectfile$Folder)) {
                adamcorrectfile.Folder <- adamcorrectfile[which(adamcorrectfile$Folder == "print 1"),]
                adamcorrectfile.Folder$start.time <- adamcorrectfile.Folder$LPRS.Time + lag
                adamcorrectfile.Folder$end.time <- adamcorrectfile.Folder$start.time + adamcorrectfile.Folder$`Calculated.Run.Time`
                for (i in 2:nrow(adamcorrectfile)) {
                   adamcorrectfile.Folder[i,"start.time"] <- max(adamcorrectfile.Folder[i,"LPRS.Time"] + 15*60, adamcorrectfile[i-1, "end.time"])
                   adamcorrectfile.Folder[i, "end.time"] <- adamcorrectfile.Folder[i,"start.time"] + adamcorrectfile.Folder[i,"Calculated.Run.Time"]
                }
                output <- rbind(output, adamcorrectfile.Folder)
                return(output)
        }
        }

匹配的括号显示为不匹配

matched brackets showed as unmatched

r

indentation