Как запустить функцию, загруженную на стороне сервера с клиента в R

Question

Мне нужна твоя помощь. Ситуация такова, что мне приходится использовать вычислительную мощность удаленного сервера с моего ноутбука. Я использую пакет svSocket и написал следующее:

Клиентская часть

      library(svSocket)
##establish connection
con <- socketConnection(host = 'xxxxxxxxx', port = 8887, blocking = FALSE)

## I have tried both
eval_socket_server(con,nsso,"nsso()")

eval_socket_server(con,"nsso()")

## close at the end of the process
close_socket_clients()

Серверная часть

      library(svSocket)
setwd("D:/xxxxxxxxxxxxx")
source("TestSock.R") ## load the function called NSSO()
start_socket_server(local = F, port=8887)

Функция загружает кадр данных, выполняет некоторые манипуляции с данными и выводит результат:

      write_csv(dfDef, "dftest.csv") ##write the manipulated dataframe
  
  
  SummDFDef ## print a summary of the manipulated dataframe
  return(print("Script done")) ## let you know when it is done

Используя оба подхода на стороне клиента, я получаю следующую ошибку:

      Error in source(objcon, local = TRUE, echo = FALSE, verbose = FALSE) : 
  objcon:5:99: unexpected 'if'
4:     trace = structure(list(call = list(quote(try(`<fn>`())), 
5:         quote(tryCatch(expr, error = function(e) {            call <- conditionCall(e)            if
                                                                                                     ^

Как мне это исправить? Спасибо.