indoc <- '
# An R console example
## In a first code chunk, set up with
```{r}
library(Statamarkdown)
```
## Then mark Stata code chunks with
```{stata}
sysuse auto, clear
generate gpm = 1/mpg
summarize price gpm
```
'
if (!is.null(Statamarkdown::find_stata())) {
# To run this example, remove tempdir().
fmd <- file.path(tempdir(), "test.md")
fhtml <- file.path(tempdir(), "test.html")
knitr::knit(text=indoc, output=fmd)
rmarkdown::render(fmd, "html_document", fhtml)
}
Run the code above in your browser using DataLab