Выполнить сценарий оболочки после нажатия кнопки действия в R Shiny - PullRequest
0 голосов
/ 04 августа 2020

Я хочу выполнить сценарий оболочки после нажатия кнопки действия на блестящем экране.

ui.R

library(shiny)
library(shinyWidgets)

 fluidPage(
    actionButton("buttonId", "run script")
  )

server.R

library(shiny)

function(input, output, session) {
    observeEvent(input$buttonId, {
      message("running script.R")
      system("/bin/bash /apps/shiny/mot/sh_saa.sh")
    })
  }

Если я запускаю R в оболочке, а затем

system("/bin/bash /apps/shiny/mot/sh_saa.sh")

, он работает! Однако, когда я нажимаю на кнопку, это не работает. Любая идея? Все три файла, server, ui и sh_saa.sh находятся в mot.

Редактировать 1:

Я просмотрел файлы журнала. Здесь можно увидеть следующее сообщение об ошибке:

Permission denied (publickey,gssapi-keyex,gssapi-with-mic,password)

сценарий оболочки:

ssh -tt user@mashine<< EOF
cd /home/Deployment/test/
./stopSaa.sh
EOF
...