我正在尝试使用DT :: datatable 计算我的闪亮应用程序中一列的总数。总的来说，我指的是表格中所有元素的总和，而不仅仅是当前分页中显示的内容。在此示例之后，以下代码应该起作用（但不起作用）：
jsCode <- "function(row, data, start, end, display) {
var api = this.api(), data;
total = api.column(1, {page: 'all'}).data().reduce( function(a, b) { return a + b}, 0);
$( api.column(1).footer() ).html('Total: ' + total);
}"
我从中得到的只是当前分页中各个元素的总和。完整代码如下：
library(shiny)
library(DT)
set.seed(2282018)
company <- data.frame(Company = letters[1:30], Units = round(runif(30,
1000, 10e6), 0),
Price = scales::dollar(runif(30, 200, 1230)), stringsAsFactors = F)
jsCode <- "function(row, data, start, end, display) {
var api …我想git-bash通过R 中的函数system()或shell()函数在shell 中运行一些命令。我在 Windows 上，默认的 shell 是命令提示符。有什么办法可以将外壳切换system()到git-bash？
谢谢
考虑数据：
library(data.table)
library(magrittr)
vec1 <- c("Iron", "Copper")
vec2 <- c("Defective", "Passed", "Error")
set.seed(123)
a1 <- sample(x = vec1, size = 20, replace = T)
b1 <- sample(x = vec2, size = 20, replace = T)
set.seed(1234)
a2 <- sample(x = vec1, size = 20, replace = T)
b2 <- sample(x = vec2, size = 20, replace = T)
DT <- data.table(
c(1:20), a1, b1, a2, b2
) %>% .[order(V1)]
names(DT) <- c("id", "prod_name_1", "test_1", "prod_name_2", "test_2")
我需要过滤行，其对价值test_1或者test_2 …
I am not sure this is possible with the standard shiny::sliderInput() in shiny (javascript solution also welcome). I have a range of discrete values that I want to use in the slider widget but this range has "intermittent" steps:
> # MWE
>
> # step sequence is c(2, 4, 4)
> steps <- rep(c(2, 4, 4), 5, each = 1)
>
> steps[1:3]
[1] 2 4 4
>
> # this is the sequence
> years <- Reduce(`+`, var.freq, …如何在Rmarkdown中省略部分块？
例如:
```{r echo T, eval = T}
df <- readRDS("yourfile.RDS")
df <- readRDS("secretfile.RDS") ### NEED TO OMIT THIS PART ONLY
df
```
我知道这些include = F或echo = F选项,但是要么省略输出df或完全省略代码.
或者,我可以这样做:
```{r echo T, eval = F}
df <- readRDS("yourfile.RDS")
```
```{r echo = F, eval = T}
df <- readRDS("secretfile.RDS") ### NEED TO OMIT THIS PART ONLY
```
```{r eval = T, echo = T}
df
```
但这是一种笨重的方式来做它并且它会削减代码块.输出应如下所示:
df <- readRDS("yourfile.RDS")
df
随着df以下的输出. …