Да, тут психологов со знанием статистики много

Вопрос только в том, у кого из них есть желание/время :)

реально ли сделать так чтобы скрипт R запускался каждый раз после сохранения в екселе к примеру бух заполняет таблицу и сохраняет изменения и скрипт должен заработать и посчитать все желательно без vba

Можно добавить в планировщик заданий скрипт, который будет отслеживать изменения в файле. При наличии изменений делать копию его, выполнять расчёты, сохранять. После того, как доступ на запись будет открыт для исходного файла - то есть его закрыли, скрипт напихает в него результаты

идея крутая но сложная нужно инструкция в скринах роликах и то копии не нужны

ексель как может выполнять скрипты или импортировать их

Если файл открыт, из Р его изменить не получится, остаётся только сделать копию и ждать, когда нужный файл будет доступен для записи. На счёт скринов и роликов, тут, боюсь, бедаа

рассмотрите вариант переноса этих расчетов из Excel в Google таблицы — там можно на JS написать скрипты, добавить в менюху кнопку на их выполнение.

еще я детально не разбирался, но возможно можно и R-овские скрипты выполнять. в статье написано как можно ggplot графики там строить https://towardsdatascience.com/r-and-python-plotting-in-google-sheets-255e974aed91

вариант крутой но компания с бухами очень отстала от таких технологий они умеют только в ячейки вбивать значения и все

так вы ж им и должны все это настроить, а они будут продолжать вбивать цифры в ячейки)

компания до таких технологий не вырастет никогда у них база все таблицы давно в екселе а переучивать людей из-за того чтобы мне было проще это слишком

простой скрипт, который проверят дату изменения экселевского файла и запускает скрипт обработки, если дата изменилась с последнй проверки. сам скрипт можно в планировщик заданий запуск настроить

Типа такого:

#' @title Мониторинг флай и выполнение функции
#' @param fpath Пусть к файлу
#' @param fun Функция для обработки файла
#' @param delay Промежуток времени в секундах для проверки изменения файла
#' @param ... Доп. параметры, передаваемые в функцию обработки
watch_file <- function(fpath, fun, delay = 60, ...) {
  fpath <- normalizePath(fpath, mustWork = TRUE)
  ts <- file.mtime(fpath)
  while (TRUE) {
    ts_new <- file.mtime(fpath)
    if (ts_new > ts) {
      ts <- ts_new
      fun(fpath, ...)
      Sys.sleep(delay)
    }
  }
}

#' @title Мониторинг флай и выполнение функции
#' @param fpath Пусть к файлу
#' @param fun Функция для обработки файла
#' @param delay Промежуток времени в секундах для проверки изменения файла
#' @param ... Доп. параметры, передаваемые в функцию обработки
watch_file <- function(fpath, fun, delay = 60, ...) {
  fpath <- normalizePath(fpath, mustWork = TRUE)
  ts <- file.mtime(fpath)
  while (TRUE) {
    ts_new <- file.mtime(fpath)
    if (ts_new > ts) {
      ts <- ts_new
      fun(fpath, ...)
      Sys.sleep(delay)
    }
  }
}

ага

Но этот скрипт не учитывает, открыт ли документ на запись.

Тут уже обсуждался вариант с батниками, мне кажется это более надежный способ.

Юзер экселя вполне сможет его запустить, когда закончит работать с документом

М.б. можно даже на VBA сделать скрипт, который запускает батник и вывести кнопку в интерфейс экселя.

Так что юзер свою задачу не выходя из экселя сможет сделать

Как всегда, 😈 в деталях, слишком мало конкретики, но много хотелок в общем виде

Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для рандомизации.
На одной машине вроде получается повторить, а на другой R версии 3.5 и там set.seed валится, т.к. опции sample.kind нет (((

Если у кого-то R начиная от 3.6 и выше, можно ли попросить прислать в личку csv и sessionInfo следующего кода, чтобы сравнить, одинаковые ли результаты на разных машинах с разными операционками?

library(randomizeR)
block_size <- 8L
rand_blocks <- rep(block_size, ceiling(800L / block_size))
params <- pbrPar(rand_blocks, K = 3L, ratio = c(1L, 1L, 2L), groups = c("Arm 1 label", "Arm 2 label", "Control"))
new_seed <- 805710L
set.seed(new_seed, kind = "Mersenne-Twister", normal.kind = "Inversion", sample.kind = "Rejection")
RandSeq_ <- genSeq(params, seed = new_seed)
Rlist <- t(getRandList(RandSeq_))
Seq_ <- (1:length(Rlist))
rand_df <- data.frame(Sequence = Seq_, Randnum = paste0("R", sprintf("%03d", Seq_)), Blocknum = rep(1:length(rand_blocks), each = block_size), Arm = Rlist)
write.csv(rand_df, paste0(new_seed,".csv"), row.names=FALSE)
sessionInfo()

Если от вба тошно, а павершелл мил, то можно замутить все канонично: через подписку на события файловой системы как вот тут https://superuser.com/questions/226828/how-to-monitor-a-folder-and-trigger-a-command-line-action-when-a-file-is-created и проверку на залоченность файла как вот тут https://mcpmag.com/articles/2018/07/10/check-for-locked-file-using-powershell.aspx