配對的括號顯示爲無法匹配

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循環中的最大功能的括號。

這裏是工作代碼：

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) 
     } 
     }