mirror of
https://github.com/RubyMetric/chsrc
synced 2025-07-21 15:49:35 +08:00
79 lines
2.2 KiB
C
79 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-11-22>
|
||
* ------------------------------------------------------------*/
|
||
|
||
/**
|
||
* @update 2023-09-04
|
||
* @note {
|
||
* 以下注释的，是不含有bioconductor的镜像站，
|
||
* 我们在换cran的同时，也直接帮助用户换bioconductor
|
||
* }
|
||
*/
|
||
static Source_t pl_r_sources[] =
|
||
{
|
||
{&UpstreamProvider, 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);
|
||
|
||
|
||
#define PL_R_Config_Windows "~/Documents/.Rprofile"
|
||
#define PL_R_Config_POSIX "~/.Rprofile"
|
||
|
||
void
|
||
pl_r_getsrc (char *option)
|
||
{
|
||
/**
|
||
* 或参考：https://zhuanlan.zhihu.com/p/585036231
|
||
*
|
||
* options()$repos
|
||
* options()$BioC_mirror
|
||
*/
|
||
if (xy_on_windows)
|
||
{
|
||
chsrc_view_file (PL_R_Config_Windows);
|
||
}
|
||
else
|
||
{
|
||
chsrc_view_file (PL_R_Config_POSIX);
|
||
}
|
||
}
|
||
|
||
/**
|
||
* @consult 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 *w1 = xy_strjoin (3, "options(\"repos\" = c(CRAN=\"", source.url, "\"))\n" );
|
||
const char *w2 = xy_strjoin (3, "options(BioC_mirror=\"", bioconductor_url, "\")\n" );
|
||
|
||
char *w = xy_2strjoin (w1, w2);
|
||
|
||
// 或者我们调用 r.exe --slave -e 上面的内容
|
||
|
||
char *config = xy_on_windows ? PL_R_Config_Windows : PL_R_Config_POSIX;
|
||
|
||
chsrc_append_to_file (w, config);
|
||
|
||
chsrc_determine_chgtype (ChgType_Auto);
|
||
chsrc_conclude (&source);
|
||
}
|
||
|
||
def_target(pl_r);
|