# your code goes here
install.packages("jsonlite")
install.packages("reshape2")

#讀進json line檔並轉成dataframe
library(jsonlite)
src <- paste0(readLines("C:/Users/Amy/Desktop/Market json/P11.json"),collapse = ',')
x <- fromJSON(src,flatten = TRUE)
j <- as.data.frame(x)

#整理data#
library(reshape2)
j.pc <- subset(j,test.pc!="NULL")

#中間有一長串整理此data的code#

#檔案輸出#
write.csv(dat, file = "p11")