R包：ssh

上传服务器

# ---------- 书籍 ----------
library(glue)
library(ssh)

## ---------- 默认变量 ---
Path_From <- "云分析构架_cellcall_单细胞水平线粒体_空转分析流程比较.mp4"
Path_To <- "/data2"

# ---------- 上传服务器 ----------
# session <- ssh_connect("root@110.1.1.23:50000", passwd = "9cef4650cc")
session <- ssh_connect("root@110.1.231.4:22", passwd = "Admin@2024")
scp_upload(session, Path_From, to = Path_To, verbose = TRUE)
ssh_disconnect(session)

ssh_exec_wait(
  session,
  command = "cp /mnt/云分析构架_cellcall_单细胞水平线粒体_空转分析流程比较.mp4 /mnt/111.mp4",
  std_out = stdout(),
  std_err = stderr()
)