use names<- instead of attr<-

Author: knapply

R/fload.R

@@ -196,7 +196,7 @@ fload <- function(json,
     )
 
     if (always_list && length(json) == 1L) {
-        `attr<-`(list(out), "names", names(json))
+        `names<-`(list(out), names(json))
     } else {
         out
     }

R/fparse.R

@@ -344,7 +344,7 @@ fparse <- function(json,
     )
 
     if (always_list && length(json) == 1L) {
-        `attr<-`(list(out), "names", names(json))
+        `names<-`(list(out), names(json))
     } else {
         out
     }