minor change

    output.markers <- FindMarkers(

      object, ident.1 = "da", ident.2 = "local", ...

    )

    output.markers[[as.character(ii)]]$pct.diff <- output.markers[[as.character(ii)]]$pct.1 -

      output.markers[[as.character(ii)]]$pct.2

    output.markers$pct.diff <- output.markers$pct.1 - output.markers$pct.2

  }

  return(output.markers)

}