передать параметр в script.sh с помощью функции shell ()

Question

Я хочу использовать команды оболочки под Windows с R. Поэтому я использую функцию shell (), вызывая программу bash.

Я создаю скрипт script.sh, который принимает слово в качестве параметра и отображает его с эхом, и он не работает, он возвращает слово «ничего», он не учитывает то, что я вставил в параметр.

script.R

pathShell <- "C:/Users/user/cmder/vendor/git-for-windows/bin/bash.exe"
cmd <- paste0("script.sh", " -a ", "something")

shell(cmd = cmd, shell = pathShell)

script.sh

val="nothing"

while getopts 'a:' opt; do
case $opt in
    a) val=$OPTARG    ;;

esac
done

echo $val

---

версия

platform       x86_64-w64-mingw32          
arch           x86_64                      
os             mingw32                     
system         x86_64, mingw32             
status                                     
major          3                           
minor          6.0                         
year           2019                        
month          04                          
day            26                          
svn rev        76424                       
language       R                           
version.string R version 3.6.0 (2019-04-26)
nickname       Planting of a Tree   

R Документация оболочки