#library(tidyjson)
library(dplyr)


#train<-read.csv("../input/train.csv", header = TRUE)

#jsonCol<-train[,c(3,5,8,9)]
#regCol<-train[,-c(3,5,8,9)]
#out<-flatten(jsonCol)


#column1<-as.character(train[,3])
#column2<-as.character(train[,5])
#column3<-as.character(train[,8])
#column4<-as.character(train[,9])





#column1<-column1 %>%             
#  as.tbl_json %>%  
 
#  spread_values(   
#    browserVersion = jstring("browserVersion"),    
#    browserSize =  jstring("browserSize"),
#    operatingSystem = jstring("operatingSystem"),
#   opSysVer = jstring("operatingSystemVersion"),
#   isMobile = jlogical("isMobile"),
#    mobileBrand = jstring("mobileDeviceBranding"),
#    mobileModel = jstring("mobileDeviceModel"),
#    mobileInput = jstring("mobileInputSelector"),
#    mobileDevice = jstring("mobileDeviceInfo"),
#    mobileDeviceMarket = jstring("mobileDeviceMarketingName"),
#    flashVersion = jstring("flashVersion"),
#    language = jstring("language"),
#    colors = jstring("screenColors"),
#    res = jstring("screenResolution"),
#    category = jstring("deviceCategory")
    
    
# )%>%
#  select(-document.id)

#column2<-column2 %>%             
#  as.tbl_json %>%  
#  spread_values( 
#    continent = jstring("continent"),
#    subContinent = jstring("subContinent"),
#    country = jstring("country"),
#    region = jstring("region"),
#    metro = jstring("metro"),
#    city = jstring("city"),
#    cityID = jstring("cityID"),
#    networkDomain = jstring("networkDomain"),
#    latitude = jstring("latitude"),
#    longitude = jstring("longitude"),
#    networkLocation = jstring("networkLocation")
    
#  )%>%
#  select(-document.id)


#column3<-column3 %>%             
#  as.tbl_json %>%  
#  spread_values( 
#    visits = jnumber("visits"),
#    hits = jnumber("hits"),
#    pageviews = jnumber("pageviews"),
#    bounces = jnumber("bounces"),
#    newVisits = jnumber("newVisits")
#  )%>%
#  select(-document.id)



#column4<-column4 %>%             
#  as.tbl_json %>%  
#  spread_values( 
#    campaign = jstring("campaign"),
#    source = jstring("source"),
#    medium = jstring("medium"),
#    keyword = jstring("keyword")
#    
# )%>%
#  select(-document.id)


#corrected_json<-data.frame(column1,column2,column3, column4)
#train1<-data.frame(regCol, corrected_json)