# library(rstudioapi)
# 
# # 然后使用rstudioapi获取当前脚本的位置
# script_path <- rstudioapi::getActiveDocumentContext()$path
# print(script_path)
# working_directory <- dirname(dirname(script_path))
# setwd(working_directory)



# pkgdown::build_site()
#
# devtools::document()
# devtools::build()
# devtools::check(manual = TRUE)
#
# devtools::spell_check()
#
# devtools::check_rhub()
#
# devtools::check_win_devel()
#
# NEWS.md
# DESCRIPTION
# cran-comments.md
#
# devtools::release()
#
# pack <- available.packages()
#
# which(rownames(pack) == "Qval")
#