在使用markdown撰写数据分析类的博客时,总是需要从Rmarkdown粘贴复制到markdown文件,后来才知道Rmarkdown可以直接生成markdown,因此使用以下两个函数用于撰写博客。更多知识分享请到 https://zouhua.top/。
根据模板生成Rmarkdown文件
- 将常在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),谢谢。
- 生成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!")
}
- 运行
post_rmd(rmd_name = "R_packages_dplyr",
template_name = "template.Rmd")
根据Rmarkdown生成markdown
- 函数
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!")
}
- 运行
post_md(md_name = "R_packages_dplyr",
rmd_name = "R_packages_dplyr.Rmd")

引用
参考文章如引起任何侵权问题,可以与我联系,谢谢
网友评论