mirror of
https://github.com/RubyMetric/chsrc
synced 2025-07-17 20:57:28 +08:00
78 lines
2.2 KiB
C
78 lines
2.2 KiB
C
/** ------------------------------------------------------------
|
||
* SPDX-License-Identifier: GPL-3.0-or-later
|
||
* -------------------------------------------------------------
|
||
* File Authors : Aoran Zeng <ccmywish@qq.com>
|
||
* Contributors : Nil Null <nil@null.org>
|
||
* Created On : <2023-09-21>
|
||
* Last Modified : <2024-08-15>
|
||
* ------------------------------------------------------------*/
|
||
|
||
/**
|
||
* @update 2023-09-04
|
||
* @note {
|
||
* 以下注释的，是不含有bioconductor的镜像站，
|
||
* 我们在换cran的同时，也直接帮助用户换bioconductor
|
||
* }
|
||
*/
|
||
static SourceInfo
|
||
pl_r_sources[] = {
|
||
{&Upstream, NULL},
|
||
{&Sjtug_Zhiyuan, "https://mirrors.sjtug.sjtu.edu.cn/cran/"},
|
||
// {&Ali, "https://mirrors.aliyun.com/CRAN/"},
|
||
{&Tuna, "https://mirrors.tuna.tsinghua.edu.cn/CRAN/"},
|
||
// {&Sustech, "https://mirrors.sustech.edu.cn/CRAN"},
|
||
// {&Bfsu, "https://mirrors.bfsu.edu.cn/CRAN/"},
|
||
// {&Bjtu, "https://mirror.bjtu.edu.cn/cran/"},
|
||
};
|
||
def_sources_n(pl_r);
|
||
|
||
|
||
void
|
||
pl_r_getsrc (char *option)
|
||
{
|
||
/**
|
||
* 或参考：https://zhuanlan.zhihu.com/p/585036231
|
||
*
|
||
* options()$repos
|
||
* options()$BioC_mirror
|
||
*/
|
||
if (xy_on_windows)
|
||
{
|
||
chsrc_view_file ("~/Documents/.Rprofile");
|
||
}
|
||
else
|
||
{
|
||
chsrc_view_file ("~/.Rprofile");
|
||
}
|
||
}
|
||
|
||
/**
|
||
* R 换源，参考：https://help.mirrors.cernet.edu.cn/CRAN/
|
||
*/
|
||
void
|
||
pl_r_setsrc (char *option)
|
||
{
|
||
chsrc_yield_source_and_confirm (pl_r);
|
||
|
||
char *bioconductor_url = xy_str_delete_suffix (xy_str_delete_suffix (source.url, "cran/"), "CRAN/");
|
||
bioconductor_url = xy_2strjoin(bioconductor_url, "bioconductor");
|
||
|
||
const char *towrite1 = xy_strjoin (3, "options(\"repos\" = c(CRAN=\"", source.url, "\"))" );
|
||
const char *towrite2 = xy_strjoin (3, "options(BioC_mirror=\"", bioconductor_url, "\")" );
|
||
|
||
// 或者我们调用 r.exe --slave -e 上面的内容
|
||
if (xy_on_windows)
|
||
{
|
||
chsrc_append_to_file (towrite1, "~/Documents/.Rprofile");
|
||
chsrc_append_to_file (towrite2, "~/Documents/.Rprofile");
|
||
}
|
||
else
|
||
{
|
||
chsrc_append_to_file (towrite1, "~/.Rprofile");
|
||
chsrc_append_to_file (towrite2, "~/.Rprofile");
|
||
}
|
||
chsrc_conclude (&source, SetsrcType_Auto);
|
||
}
|
||
|
||
def_target(pl_r);
|