pected string constant in ""json <- jsonlite::fromJSON(""metadata.cart.2022-07-05.json""

这个错误提示看起来是你在代码中使用了双引号，但是没有正确地转义它们。你可以尝试在字符串中使用单引号，或者在双引号前加上反斜线来转义它们，例如：

json <- jsonlite::fromJSON("\"metadata.cart.2022-07-05.json\"")

或者

json <- jsonlite::fromJSON('"metadata.cart.2022-07-05.json"')

这样应该就能够消除这个错误了。