工具：Rmarkdown生成markdown文件，用于撰写博客

在使用markdown撰写数据分析类的博客时，总是需要从Rmarkdown粘贴复制到markdown文件，后来才知道Rmarkdown可以直接生成markdown，因此使用以下两个函数用于撰写博客。更多知识分享请到 https://zouhua.top/。

根据模板生成Rmarkdown文件

1. 将常在markdown使用的参数放置在模板内，如

markdown的title部分

---
layout: post
title: ""
categories:
  - R
  - 可视化
tags:
  - 可视化
top: 100
password: password
abstract: "有东西被加密了, 请输入密码查看."
message: "您好, 这里需要密码."
wrong_pass_message: "抱歉, 这个密码看着不太对, 请再试试."
wrong_hash_message: "抱歉, 这个文章不能被校验, 不过您还是能看看解密后的内容"
mathjax: true
excerpt: ""
abbrlink: 
date: "2020-10-02 11:26:00"
updated: "2020-10-02 23:00:00"
---

加载通用r包部分

knitr::opts_chunk$set(warning = F, message = F, echo=T)
library(dplyr)

声明部分

### 引用
1. []()
参考文章如引起任何侵权问题，可以与我[联系](zouhua1@outlook.com)，谢谢。

2. 生成Rmardown函数

post_rmd <- function(rmd_name=NULL, 
                     template_name="template.Rmd"){
  
  if(length(rmd_name) == 0){
    stop("Please give the name of Rmarkdown")
  }
  
  temp_file  <- paste(template_name, sep="/")
  rmd_file     <- paste0(rmd_name, ".Rmd")
  content   <- readLines(temp_file)
  writeLines(content, rmd_file)
  print("New Rmarkdown is created successfully!")
}

3. 运行

post_rmd(rmd_name = "R_packages_dplyr",
         template_name = "template.Rmd")

根据Rmarkdown生成markdown

1. 函数

post_md <- function(md_name=NULL,
                                 rmd_name=NULL,
                                rmd_path=getwd(),
                                md_path=getwd()){

  rmd_file   <- paste(rmd_path, rmd_name, sep="/")
  md_file     <- paste0(md_path, "/", md_name, ".md")
  
  knitr::knit(input = rmd_file   , output = md_file)
  print("New markdown is created successfully!")
}

2. 运行

post_md(md_name = "R_packages_dplyr",
        rmd_name = "R_packages_dplyr.Rmd")

引用

参考文章如引起任何侵权问题，可以与我联系，谢谢