代码之家 › 专栏 › 技术社区 › Konrad

在rstudio中运行时,似乎未处理.first函数的内容

rprofile rstudio r

Konrad · 技术社区 · 6 年前

在我的 .Rprofile 我定义如下 .First 有两个目的的功能:

显示可用库路径

更改的设置 colorout 如果运行主题鲜明的rstudio,则打包

.First <- function() {
    if (interactive()) {
       cat(
         "\nProcessed RProfile at:",
         date(),
         "\n",
         "Available libraries",
         "\n",
         paste(.libPaths(), collapse = "\n "),
         "\n"
         )

    # Check if running bright theme and adjust colour settings
    if (assertive::is_rstudio()) {
        theme_info <- rstudioapi::getThemeInfo()
        if (!theme_info$dark) {
            colorout::setOutputColors(
                normal = 2,
                negnum = 3,
                zero = 3,
                number = 3,
                date = 3,
                string = 6,
                const = 5,
                false = 5,
                true = 2,
                infinite = 5,
                index = 2,
                stderror = 4,
                warn = c(1, 0, 1),
                error = c(1, 7),
                verbose = TRUE,
                zero.limit = NA
            )
       }
    }
  }
}

问题

在终端中运行时,函数返回所需的结果:

但是,将由 .第一 函数不显示:

颜色设置似乎也不适用。当我作为 .First() 那就没问题了。

我想了解rstudio启动的不同之处在于,它不会产生与在终端中运行并访问r会话相同的结果 .r轮廓 是吗?

1 回复 | 直到 6 年前

Greg Snow 6 年前

首先,函数的整个主体 if(interactive()){} 是的。这个 interactive 函数将返回 TRUE 因此,当您从命令行运行函数时,代码将运行。但是当 .First 在启动时自动运行, 互动的 函数返回 FALSE 函数的整个主体被跳过。

与rterm相比,rstudio启动中会话开始交互的时间可能有所不同。您可以将这样的代码放在 .第一 以下内容:

if(interactive()) {
  cat('Interactive is TRUE\n')
} else {
  cat('Interactive is FALSE\n')
}

推荐文章

Marc B. · 使用ggplot2创建条形图时“缺少值”

1 年前

deschen · tidyverse与外部向量发生突变,该外部向量的元素是数据帧中的列值

1 年前

Laura · 在Shiny中使用可排序的包拖放名称,这些名称将成为图表

1 年前

Mallikarjun M · 如何使用随机森林进行时间序列预测?

1 年前

ly li · 模型摘要:当表格形状改变时,拟合优度消失

1 年前

C.Robin · 将marginaffects::predictions()的结果连接回main df?

1 年前

monotonic · 如何将格式为“col1+col3+col4”的数据帧的行名转换为一列数字向量“c(1,3,4)”?

2 年前

Shawn Hemelstrand · 为什么我的自定义errorbar函数不能在R中工作?

2 年前

RoyBatty · 统计每个字符在整个数据集中出现的次数

2 年前

stats_noob · R: 记录某个“行为”发生的循环的索引?

2 年前