Сохранить Rscript в формате Rmd

Question

У меня есть сценарий R.

mydat=read.csv("C:/Users/Admin/Downloads/test.csv", sep=";",dec=",")
View(mydat)
str(mydat)

#deleted after FS
mydat$symboling.<-NULL
mydat$make.<-NULL
mydat$num.of.cylinders.<-NULL
mydat$fuel.type.<-NULL
mydat$aspiration.<-NULL
mydat$num.of.cylinders.<-NULL

#this vars have  small num. of obs.
mydat$engine.type.<-NULL
mydat$engine.location.<-NULL
mydat$num.of.doors.<-NULL 
mydat=na.omit(mydat)

#Feature Selection
FS=Boruta(normalized.losses.~.,data=mydat)
getSelectedAttributes(FS, withTentative = F)
plot(FS, cex.axis=0.5)

#get scatterplot
scatter.smooth(x=mydat$length.,y=mydat$normalized.losses.,main="normalized losse~length")


#split sample on train and sample
index <- sample(1:nrow(mydat),round(0.70*nrow(mydat)))
train <- mydat[index,]
test <- mydat[-index,]

Я должен сохранить его в формате Rmarkdown (html).Конечно, в Rstudio я могу сделать это: file-new file-rmarkdown-HTML

, и я получаю этот скрипт

```{r cars}
summary(cars)
```

Я не хочу вручную писать этот префикс `` `{р}.Можно ли сделать так, чтобы те части кода, которые разделены комментариями

#

#

, были сохранены в формате rmarkdown?В выводе я ожидаю, например,

```{r}
mydat$symboling.<-NULL
mydat$make.<-NULL
mydat$num.of.cylinders.<-NULL
mydat$fuel.type.<-NULL
mydat$aspiration.<-NULL
mydat$num.of.cylinders.<-NULL
```

Answer 1

Вы можете использовать функцию spin() из пакета knitr.Он создаст файл .md (но вы можете сохранить промежуточный .Rmd с аргументом precious = TRUE), используя символ # в качестве аргумента документации:

doc Регулярное выражение для идентификации строк документации;по умолчанию он соответствует соглашению roxygen, но его можно настроить, например, если вы хотите использовать ## для обозначения документации, вы можете использовать '^ ## \ s *'.

Например:

spin('test.R', precious = TRUE, doc = '#')

производит:

test.Rmd

```{r }
mydat=read.csv("C:/Users/Admin/Downloads/test.csv", sep=";",dec=",")
View(mydat)
str(mydat)
```

deleted after FS

```{r }
mydat$symboling.<-NULL
mydat$make.<-NULL
mydat$num.of.cylinders.<-NULL
mydat$fuel.type.<-NULL
mydat$aspiration.<-NULL
mydat$num.of.cylinders.<-NULL
```

this vars have  small num. of obs.
...

test.md

```r
mydat=read.csv("C:/Users/Admin/Downloads/test.csv", sep=";",dec=",")
```

```
## Warning in file(file, "rt"): cannot open file 'C:/Users/Admin/Downloads/
## test.csv': No such file or directory
```

```
## Error in file(file, "rt"): cannot open the connection
```

```r
View(mydat)
```
...

Вы также можете посмотреть на stitch() функция и сибилинги (stitch_rhtml и stitch_rmd), посмотрите здесь