capturing printed output from stata into a dataframe

[mcewenkhundi]

Is it possible to capture the printed output from STATA into a dataframe?

x <- data.frame(a = rnorm(3), b = letters[1:3])

stata("sum a", data.in = x)

. sum a

Variable | Obs Mean Std. Dev. Min Max
------------+--------------------------------------------------------
a | 3 -.5603985 .3000552 -.7720861 -.2170166

For instance, the above printed results being captured into a data frame in R. Thank you.