小编ins*_*ven的帖子

我想使用highcharter包在R中绘制一个Sankey图.我在格式化时面临问题.这是一个例子.

# devtools::install_github("jbkunst/highcharter")
library(highcharter)

hc_dat <- data.frame(from = c("A", "A", "B"), 
                     to = c("C", "B", "C"), N = c(7, 5, 5))
highchart() %>%
  hc_add_series(data = hc_dat, type = "sankey", 
                hcaes(from = from, to = to, weight = N))

这产生了以下图片:

我希望B节点处于中间位置,以便更好地了解情节.所以我尝试实现这个操作Highcharts系列的column属性nodes:

nodes_mapping <- list(list(id = "A", column = 0),
                      list(id = "B", column = 1),
                      list(id = "C", column = 2))

highchart() %>%
  hc_add_series(data = hc_dat, type = "sankey", 
                nodes = nodes_mapping,
                hcaes(from …

我很陌生Rcpp并尝试实现一个简单的事情，但我收到错误并且不知道出了什么问题。我想要data.frame一个从list. 我的 cpp 文件如下所示：

#include <Rcpp.h>
using namespace Rcpp;

// [[Rcpp::export]]
DataFrame makeDF(List x) {
  NumericVector a = x["a"];
  NumericVector b = x["b"];
  NumericVector n = x["n"];
  const int n2 = n[0];

  NumericVector a2 = NumericVector(n2, a[0]);
  NumericVector b2 = NumericVector(n2, b[0]);

  DataFrame df = DataFrame::create(a2, b2);

  return df;
}

然后在RI中写入：

library(Rcpp)
sourceCpp("./cppcode/check_makeDF.cpp")
# no errors here, it compiles OK
x <- list(a = 2.5, b = 1.1, n = 5)
makeDF(x)
# Error …

是否可以将我View()在RStudio中使用命令时看到的页面保存为某些数据作为html文件？

我想对for循环的每个步骤的执行时间进行限制。简而言之，如果该步骤在10秒内未完成，请转到next。

更具体地说，这是一些代码。

myComplicatedFunction <- function(obj, ...) { <some code here> }
x # something to process
x_result <- vector(mode = "list", length = length(x))
for (i in seq_along(x)) {
    x_result[[i]] <- 
        processNotMoreThanXSeconds(
            givenTime = 10,
            myComplicatedFunction(x[i]),
            didNotComplete = function() "Time's up!"
        )
}

我的问题是，如何声明这样的功能processNotMoreThanXSeconds？