크롤링 환경을 자동으로 사용하는데 있어서 매번 환경 구축해주는 것이 귀찮은 일이다.

이에 따라 terminal의 code를 R 스크립트에서 실행하는 코드를 찾아보았다.

rstudioapi 패키지가 그 기능을 하고 있었다.

install.packages('rstudioapi')
library(rstudioapi)

먼저 terminal을 생성하고 

myTerm <- rstudioapi::terminalCreate()

실행될 때까지 기다려준다.

if (!rstudioapi::terminalRunning(myTerm)) {
  # start the terminal shell back up, but don't bring to front
  rstudioapi::terminalActivate(myTerm, show = FALSE)
  # wait for it to start
  while (!rstudioapi::terminalRunning(myTerm)) {
    Sys.sleep(0.1)
  }

실행이 되면 terminalSend 함수를 활용하여 terminal에 commend를 입력해보자.

rstudioapi::terminalSend(myTerm, "cd c:/selenium\n
java -Dwebdriver.gecko.driver=\"geckodriver.exe\" -jar selenium-server-standalone-3.9.1.jar -port 4445\n")