R Under development (unstable) (2023-11-19 r85561 ucrt) -- "Unsuffered Consequences" Copyright (C) 2023 The R Foundation for Statistical Computing Platform: x86_64-w64-mingw32/x64 R is free software and comes with ABSOLUTELY NO WARRANTY. You are welcome to redistribute it under certain conditions. Type 'license()' or 'licence()' for distribution details. R is a collaborative project with many contributors. Type 'contributors()' for more information and 'citation()' on how to cite R or R packages in publications. Type 'demo()' for some demos, 'help()' for on-line help, or 'help.start()' for an HTML browser interface to help. Type 'q()' to quit R. > library(gtools) > > today <- Sys.Date() > tenweeks <- seq(today, length.out = 10, by = "1 week") > > df1 <- data.frame(dates = tenweeks, chars = letters[1:10], ints = 1:10, numeric = 1.1:10.1) > df2 <- data.frame(chars = letters[11:20], ints = 11:20, numeric = 11.1:20.1) > > smartbind(df1, df2) dates chars ints numeric 1:1 2023-11-20 a 1 1.1 1:2 2023-11-27 b 2 2.1 1:3 2023-12-04 c 3 3.1 1:4 2023-12-11 d 4 4.1 1:5 2023-12-18 e 5 5.1 1:6 2023-12-25 f 6 6.1 1:7 2024-01-01 g 7 7.1 1:8 2024-01-08 h 8 8.1 1:9 2024-01-15 i 9 9.1 1:10 2024-01-22 j 10 10.1 2:1 k 11 11.1 2:2 l 12 12.1 2:3 m 13 13.1 2:4 n 14 14.1 2:5 o 15 15.1 2:6 p 16 16.1 2:7 q 17 17.1 2:8 r 18 18.1 2:9 s 19 19.1 2:10 t 20 20.1 Warning message: In smartbind(df1, df2) : Converting non-atomic type column 'dates' to type character. > > proc.time() user system elapsed 0.20 0.07 0.28