Код R в документах Google

Я знаю, что вы можете публиковать электронные таблицы в документах Google, а затем импортировать их в R. Однако, скажем, у меня есть функция или некоторый код, который я хочу прочитать в R (, как в исходной функции ). Как бы вы, например, прочитали весь этот код, хранящийся в документах Google?

https://docs.google.com/document/edit?id=1f11rcVs9AtVcgOyiP0lV04yq9hshVDIPx93lA0ItFvQ

Я не думаю, что это было опубликовано, но это просто для примера.

В основном я хочу:

1. Создайте функцию в R (для сравнения, см. пример ниже )

2. . Загрузите его в Google Docs и поделитесь им со всеми, у кого есть ссылка, чтобы мне не приходилось входить в систему через R или Google Docs и т. д.

3. Прочитайте его с помощью команды, такой как источник ()везде, где я хочу

Меня интересует не чтение данных, а чтение функций. Это сделало бы импорт моих собственных функций намного быстрее, когда я нахожусь на другом компьютере/сервере.

Любые идеи?

Большое спасибо

P.S. Пример функции из statsmethods.net

mysummary <- function(x,npar=TRUE,print=TRUE) {
  if (!npar) {
    center <- mean(x); spread <- sd(x) 
  } else {
    center <- median(x); spread <- mad(x) 
  }
  if (print & !npar) {
    cat("Mean=", center, "\n", "SD=", spread, "\n")
  } else if (print & npar) {
    cat("Median=", center, "\n", "MAD=", spread, "\n")
  }
  result <- list(center=center,spread=spread)
  return(result)
}