translate2/app.R

In qkdrk777777/lotto2:

library(shiny)
library(stringr)
library(RCurl)
library(RSelenium)
library(XML)
library(rvest)
library(stringr)
ui<-fluidPage(title='lotto sample',
              textAreaInput('text','Please enter a word to translate.'),
              verbatimTextOutput('txt'))
server<-function(input,output,session){

  output$txt<-renderPrint({
    req(input$text)
    data<-input$text
    pJS <- wdman::phantomjs(port = 4567L)
    koen=T
    if(length(unlist(str_extract_all(data,'[ㄱ-힣]+')))==0)koen=F
    remDr <- remoteDriver(port=4567L, browserName = 'chrome')
    remDr$open()

    if(koen==T)remDr$navigate(paste0('https://translate.google.co.kr/?hl=#ko/en/'))else remDr$navigate(paste0('https://translate.google.co.kr/?hl=#en/ko/'))
    #remDr$screenshot(display = T)
    tr<-remDr$findElement(using='css',value='textarea#source')
    tr$sendKeysToElement(list(paste(data)))
    Sys.sleep(2)
    source<-remDr$getPageSource()[[1]]
    a<-read_html(source)%>%html_nodes(css='.short_text#result_box')%>%html_text()
    a<-paste(a,collapse='')
    remDr$goBack()

    remDr$close()
    pJS$stop()
    a

  })
}

shinyApp(ui,server)