小编sta*_*ent的帖子

我希望记录一个R函数,并在多个参数名称匹配时从其他函数继承单个参数文档.例如,假设我有以下2个功能.

#' Function 1.
#' 
#' Description of function 1.
#' 
#' @param x XYZ
#' @param y ZYX
#' @return Numeric
fun1 <- function(x, y) {value <- 1}

#' Function 2.
#' 
#' Description of function 2.
#' 
#' @param x ABC
#' @param y CBA
#' @return Numeric
fun2 <- function(x, y) {value <- 2}

我现在想要创建第三个函数,它继承fun1的参数x和fun2的参数y.以下不起作用:

#' Function 3.
#'
#' Description of function 3.
#'
#' @inherit fun1 params x
#' @inherit fun2 params y
fun3 <- …

我使用dplyr (0.7.0),dbplyr (1.0.0),DBI 0.6-1,和odbc (1.0.1.9000).我想做类似以下的事情:

db1 <- DBI::dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "MyServer",
  Database = "DB1"
)
db2 <- DBI::dbConnect(
  odbc::odbc(),
  Driver = "SQL Server",
  Server = "MyServer",
  Database = "DB2"
)
x <- tbl(db1, "Table1") %>%
  dplyr::left_join(tbl(db2, "Table2"), by = "JoinColumn") 

但我一直得到一个似乎没有任何实质内容的错误.当我使用show_query它时,似乎代码正在尝试创建一个连接两个表的SQL查询,而不考虑单独的数据库.根据dplyr::left_join我的文档,我也尝试过:

x <- tbl(db1, "Table1") %>%
      dplyr::left_join(tbl(db2, "Table2"), by = "JoinColumn", copy = TRUE) 

但输出或错误消息没有变化.是否有不同的方法从同一服务器上的不同数据库连接表？

我想做的是以某种方式同时使用position = "fill"和的position = "dodge"参数。geom_bar()使用一些样本数据

set.seed(1234)
df <- data.frame(
  Id = rep(1:10, each = 12),
  Month = rep(1:12, times = 10),
  Value = sample(1:2, 10 * 12, replace = TRUE)
)

我能够创建以下图表

df.plot <- ggplot(df, aes(x = as.factor(Month), fill = as.factor(Value))) + 
  geom_bar(position = "fill") + 
  scale_x_discrete(breaks = 1:12) + 
  scale_y_continuous(labels = percent) +
  labs(x = "Month", y = "Value")

我喜欢这个图的缩放和标签，但我希望能够将其拆开。但是当我执行以下操作时

df.plot2 <- ggplot(df, aes(x = as.factor(Month), fill = as.factor(Value))) + 
  geom_bar(position = "dodge", …

我试图改变标签样式tabBox在shinydashboard.我能够更改未选中的选项卡的背景,但我无法更改所选选项卡的背景或每个选项卡中显示的文本.这是我添加到custom.css文件以更改未选择的选项卡背景:

.nav-tabs {
  background-color: #006747;
}

我尝试了类似的东西,.nav-tabs .active但我无法得到任何工作.

此外,如果有人知道如何更改您选择的选项卡旁边显示的小色条,那也是值得赞赏的.

我倾向于在代码中使用很多换行符，如下所示：

# Data =========================================================================

整个注释的长度始终为80个字符（包括井号）。我想做的是为Rstudio编写一个代码片段，该代码片段将插入＃标签，然后插入一个空格，然后允许用户键入一系列单词，然后插入另一个空格，最后填写一堆“ =“直到达到80个字符的限制。

我根本不了解摘要的工作原理，因此不确定这有多困难。

我有很多：

snippet lb
  # ${1:name}

但我不知道如何添加动态数量的“ =”符号。另外，lb =换行符。