您可以使用此 Package 器：

safe_load_multiqc <- function(path, file) {
  tryCatch(load_multiqc(file.path(path, file)), error = function(e) {
    system(paste("gsed -i 's/NaN/null/g'",paste0(path,"*.json")))
    # retry
    load_multiqc(path, file)
  })
}

在工作管道中处理类似错误的一个好方法是使用restart和withCallingHandlers和withRestarts。
你建立了条件处理程序和恢复协议（重启），然后你可以选择使用什么协议以及使用的顺序。调用处理程序可以比普通的try-catch更好地控制错误条件。
在这个例子中，我写了两个处理程序：removeNaNs（在文件夹级别工作）和skipFile（在文件级别工作），如果第一个失败，则执行第二个（简单地跳过文件）。
我认为在您的情况下，您可以在任何情况下简单地运行sed，不过，我希望这个答案满足您对规范方法的寻找
灵感和额外讲座：Beyond Exception Handling: Conditions and Restarts

path <- "../your_path"

# function that does the error_prone task
do_task <- function(path){
  files <- dir(path,pattern = "*.json")        #locate files
  files %>% 
    map(~ withRestart(                         # set an alternative restart
      load_multiqc(file.path(path, .)),        # parsing
      skipFile = function() {                  # if fails, skip only this file      
        message(paste("skipping ", file.path(path, .)))
        return(NULL)
      }))   
}

# error handler that invokes "removeNaN"
removeNaNHandler <- function(e)  tryInvokeRestart("removeNaN")
# error handler that invokes "skipFile"
skipFileHandler <- function(e) tryInvokeRestart("skipFile")

# run the task with handlers in case of error
withCallingHandlers(
  condition = removeNaNHandler,    # call handler (on generic error)
  # condition = skipFileHandler,     # if previous fails skips file
  {
    # run with recovery protocols (can define more than one)
    withRestarts({
      do_task(path)},   
      removeNaN = function()   # protocol "removeNaN"  
      {               
        system(paste("gsed -i 's/NaN/null/g'",paste0(path,"*.json")))
        do_task(path)      # try again
      }
    )
  }
)