Как поделиться проектом Laravel в локальной сети

Я не уверен, что вы пытаетесь сделать в точности, но вот какой-то быстрый и грязный код, чтобы перебрать столбцы в списке фреймов данных:

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::List listDf(Rcpp::List l) {
  for (int i = 0; i < l.length(); ++i) {
    Rcpp::DataFrame df = Rcpp::as<Rcpp::DataFrame>(l[i]);
    for (int j = 0; j < df.cols(); ++j) {
      Rcpp::NumericVector col = df[j];
      df[j] = 1.23 * col;
    }
  }
  return l;
}

/*** R
set.seed(42)
df1 <- data.frame(a = sample(1:100, 3),
                  b = sample(1:100, 3),
                  c = sample(1:100, 3))

df2 <- data.frame(a = sample(1:100, 3),
                  b = sample(1:100, 3),
                  c = sample(1:100, 3))

l <- list(df1 = df1, df2 = df2)

listDf(l)

*/

И если вы действительно хотите добавьте 1/100 последнего столбца к другим столбцам, вы можете использовать:

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::List listDf(Rcpp::List l) {
  for (int i = 0; i < l.length(); ++i) {
    Rcpp::DataFrame df = Rcpp::as<Rcpp::DataFrame>(l[i]);
    Rcpp::NumericVector last = df[df.cols() - 1];
    for (int j = 0; j < df.cols() - 1; ++j) {
      Rcpp::NumericVector col = df[j];
      df[j] = col + last / 100.0;
    }
  }
  return l;
}

/*** R
set.seed(42)
df1 <- data.frame(a = sample(1:100, 3),
                  b = sample(1:100, 3),
                  c = sample(0:99, 3))

df2 <- data.frame(a = sample(1:100, 3),
                  b = sample(1:100, 3),
                  c = sample(0:99, 3))

l <- list(df1 = df1, df2 = df2)

listDf(l)

*/

Выход:

> listDf(l)
$df1
      a     b  c
1 92.73 84.73 73
2 93.13 64.13 13
3 29.64 51.64 64

$df2
       a     b  c
1  71.94 94.94 94
2  46.96 26.96 96
3 100.11 46.11 11