# NOT RUN {
# data.frame
df <- data.frame(year = 2010, day = 1:3, month = 1, site = "A")
l <- list(a = df, b = df)
df_new <- melt_list(l, "id")
# data.table
df <- data.table::data.table(year = 2010, day = 1:3, month = 1, site = "A")
l <- list(a = df, b = df)
df_new <- melt_list(l, "id")
# }
Run the code above in your browser using DataLab