\documentclass[a4paper, oneside, 10pt]{article}
\usepackage[unicode]{hyperref}
\usepackage[utf8x]{inputenc}
\usepackage[english]{babel}
\date{\today}
\title{}
\author{}
\begin{document}



\section{\texorpdfstring{Função}{Funao}}
\label{sec:funao}

\begin{verbatim}
resist.antibiotic <- function(microbeAntibiotic, country, country2 = NULL, country3 = NULL, country4 = NULL, country5 = NULL, yearFrom, yearTo ){ #argumentos que a função Resist.antibiotic pode receber

##################################################################################
####################VERIFICAR SE OS ARGUMENTOS NECESSÁRIOS PARA RODAR A FUNÇÃO#### 
################################FORAM PREENCHIDOS#################################
##################################################################################  
  if (missing(microbeAntibiotic))   #retorna um erro se o argumento microbeAntibiotic não for preenchido
    stop("Need to specify a microbe and an antibiotic.") #mensagem de erro retornada
  
  if (missing(country))#retorna um erro se o argumento country não for preenchido
    stop("Need to specify at least one country.")#mensagem de erro retornada
  
  if (missing(yearFrom))#retorna um erro se o argumento yearFrom não for preenchido
    stop("Need to specify a year to start.")#mensagem de erro retornada
  
  if (yearFrom < "1998")#retorna um erro se o argumento yearFrom for menor do que 1998
    stop("This is not a valid year.")#mensagem de erro retornada
  
  if (yearFrom > "2014")#retorna um erro se o argumento yearFrom for maior que 2014
    stop("This is not a valid year.")#mensagem de erro retornada
  
  if (missing(yearTo))#retorna um erro se o argumento yearTO não for preenchido
    stop("Need to specify a year to end")#mensagem de erro retornada
  
  if (yearFrom < "1998")#retorna um erro se o argumento yearTo for menor do que 1998
    stop("This is not a valid year.")#mensagem de erro retornada
  
  if (yearFrom > "2014")#retorna um erro se o argumento yearTo for maio do que 2014
    stop("This is not a valid year.")#mensagem de erro retornada

##################################################################################
####################INICIAR NAVEGAÇÃO NO SITE DA ECDC#############################
##################################################################################  
library(RSelenium) #carrega o pacote RSelelium, necessário para que a função rode
library(data.table)#carrega o pacote data.table, necessário para que a função rode
checkForServer() #checar ver se o servidor locar está ativo
startServer() #ativar servidor local
appURL <- "http://ecdc.europa.eu/en/healthtopics/antimicrobial_resistance/database/Pages/table_reports.aspx" #armazena a URL do site do ECDC com dados de resistência a antibióticos
remDr <- remoteDriver$new() #ativa o controle remoto em uma variável
remDr$open() #abre uma página do navegador. Por padrão é o firefox
remDr$navigate("http://ecdc.europa.eu/en/healthtopics/antimicrobial_resistance/database/Pages/table_reports.aspx") #entra no site do ECDC
wait <-10 #TEMPO DE ESPERA PADRÃO EM SEGUNDOS
remDr$setImplicitWaitTimeout(wait*1000)#TEMPO DE ESPERA PARA CARREGAR O SITE PODE SER DE ATÉ 10000 SEGUNDOS
##################################################################################
####################SELEÇÃO DE PATÓGENO / ANTIBIÓTICO#############################
##################################################################################  

if (microbeAntibiotic == "ENCFAE - Aminopenicillins" ) { #teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(1)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ENCFAE - High level gentamicin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(2)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ENCFAE - Vancomycin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(3)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ENCFAI - Aminopenicillins" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(4)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ENCFAI - High level gentamicin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(5)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ENCFAI - Vancomycin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(6)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ESCCOL - 3rd gen. cephalosporins" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(7)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ESCCOL - Aminoglycosides" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(8)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ESCCOL - Aminopenicillins" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(9)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ESCCOL - Carbapenems" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(10)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "ESCCOL - Fluoroquinolones" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(11)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "KLEPNE - 3rd gen. cephalosporins" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(12)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "KLEPNE - Aminoglycosides" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(13)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "KLEPNE - Carbapenems" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(14)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "KLEPNE - Fluoroquinolones" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(15)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "KLEPNE - Multiple drug resistance" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(16)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()
}
#
if (microbeAntibiotic == "PSEAER - Amikacin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(17)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "PSEAER - Aminoglycosides" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(18)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "PSEAER - Carbapenems" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(19)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()
}
#
if (microbeAntibiotic == "PSEAER - Ceftazidime" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(20)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "PSEAER - Fluoroquinolones" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(21)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "PSEAER - Piperacillinñtaz" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(22)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "STAAUR - MRSA" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(23)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "STAAUR - Rifampin" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(24)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "STRPNE - Macrolides" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(25)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#
if (microbeAntibiotic == "STRPNE - Penicillins" ) {#teste lógico para verificar qual o microrganismo e o antibiótico escolhido
  option17 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_PathogenAntibiotic > option:nth-child(26)")#seleciona no site a opção desse microrganismo/antibiotico
  option17$clickElement()#clica no botão para selecionar a opção
}
#


##################################################################################
####################SELEÇÃO DO PRIMEIRO PAÍS######################################
##################################################################################
if (country == "Austria" ) {#teste lógico para verificar qual o país escolhido
  austria <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(1)") 
  austria$clickElement()#clica no botão para selecionar a opção
}
#
if (country == "Belgium" ) {#teste lógico para verificar qual o país escolhido
  belgium <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(2)")
  belgium$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Bulgaria" ) {#teste lógico para verificar qual o país escolhido
  bulgaria <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(3)")
  bulgaria$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Croatia" ) {#teste lógico para verificar qual o país escolhido
  croatia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(4)")
  croatia$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country == "Cyprus" ) {#teste lógico para verificar qual o país escolhido
  cyprus <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(5)")
  cyprus$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "Cz.rep" ) {#teste lógico para verificar qual o país escolhido
  cz.rep <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(6)")
  cz.rep$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Denmark" ) {#teste lógico para verificar qual o país escolhido
  denmark <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(7)")
  denmark$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "Estonia" ) {#teste lógico para verificar qual o país escolhido
  estonia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(8)")
  estonia$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Eu.eea" ) {#teste lógico para verificar qual o país escolhido
  eu.eea <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(9)")
  eu.eea$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Finland" ) {#teste lógico para verificar qual o país escolhido
  finland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(10)")
  finland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "France" ) {#teste lógico para verificar qual o país escolhido
  france <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(11)")
  france$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Germany" ) {#teste lógico para verificar qual o país escolhido
  germany <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(12)")
  germany$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "Greece" ) {#teste lógico para verificar qual o país escolhido
  greece <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(13)")
  greece$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Hungary" ) {#teste lógico para verificar qual o país escolhido
  hungary <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(14)")
  hungary$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country == "Iceland" ) {#teste lógico para verificar qual o país escolhido
  iceland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(15)")
  iceland$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Ireland" ) {#teste lógico para verificar qual o país escolhido
  ireland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(16)")
  ireland$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Italy" ) {#teste lógico para verificar qual o país escolhido
  italy <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(17)")
  italy$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Latvia" ) {#teste lógico para verificar qual o país escolhido
  latvia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(18)")
  latvia$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Lithuania" ) {#teste lógico para verificar qual o país escolhido
  lithuania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(19)")
  lithuania$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Luxemburg" ) {#teste lógico para verificar qual o país escolhido
  luxemburg <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(20)")
  luxemburg$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "Malta" ) {#teste lógico para verificar qual o país escolhido
  malta <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(21)")
  malta$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Netherlands" ) {#teste lógico para verificar qual o país escolhido
  netherlands <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(22)")
  netherlands$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Norway" ) {#teste lógico para verificar qual o país escolhido
  norway <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(23)")
  norway$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country == "Poland" ) {#teste lógico para verificar qual o país escolhido
  poland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(24)")
  poland$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country == "Portugal" ) {#teste lógico para verificar qual o país escolhido
  portugal <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(25)")
  portugal$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Romania" ) {#teste lógico para verificar qual o país escolhido
  romania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(26)")
  romania$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country == "Slovakia" ) {#teste lógico para verificar qual o país escolhido
  slovakia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(27)")
  slovakia$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Slovenia" ) {#teste lógico para verificar qual o país escolhido
  slovenia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(28)")
  slovenia$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Spain" ) {#teste lógico para verificar qual o país escolhido
  spain <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(29)")
  spain$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "Sweden" ) {#teste lógico para verificar qual o país escolhido
  sweden <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(30)")
  sweden$clickElement()#clica no botão para selecionar a opção
}

#
if (country == "United Kingdom" ) {#teste lógico para verificar qual o país escolhido
  united.kingdom <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country > option:nth-child(31)")
  united.kingdom$clickElement()#clica no botão para selecionar a opção
}

 
##################################################################################
####################SELEÇÃO DO SEGUNDO PAÍS######################################
##################################################################################
#Todas as linhas aqui são testes lógicos iguais aos feitos na seleção do primeiro país. No site é possível escolher até 5 países simultaneamente. No mínimo um país precisa ser esolhido. Por padrão, Austria está selecionado.
if (!is.null(country2)) {#Teste lógico para verificar se o usuário indicou algum país na segunda posição
  
 
if (country2 == "Austria" ) {
  austria <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(2)") 
  austria$clickElement()#clica no botão para selecionar a opção
}
if (country2 == "Belgium" ) {
  belgium <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(3)")
  belgium$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country2 == "Bulgaria" ) {
  bulgaria <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(4)")
  bulgaria$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country2 == "Croatia" ) {
  croatia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(5)")
  croatia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Cyprus" ) {
  cyprus <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(6)")
  cyprus$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Cz.rep" ) {
  cz.rep <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(7)")
  cz.rep$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Denmark" ) {
  denmark <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(8)")
  denmark$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Estonia" ) {
  estonia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(9)")
  estonia$clickElement()#clica no botão para selecionar a opção
}
    
  #### EU.EEA TEM APENAS NA PRIMEIRA OPÇÃO
# if (country2 == "Eu.eea" ) {
 #   eu.eea <- remDr$findElement(using = 'css selector',    "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(10)")
 #   eu.eea$clickElement()
 # }
 
#
if (country2 == "Finland" ) {
  finland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(10)")
  finland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "France" ) {
  france <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(11)")
  france$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Germany" ) {
  germany <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(12)")
  germany$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Greece" ) {
  greece <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(13)")
  greece$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Hungary" ) {
  hungary <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(14)")
  hungary$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Iceland" ) {
  iceland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(15)")
  iceland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Ireland" ) {
  ireland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(16)")
  ireland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Italy" ) {
  italy <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(17)")
  italy$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Latvia" ) {
  latvia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(18)")
  latvia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Lithuania" ) {
  lithuania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(19)")
  lithuania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Luxemburg" ) {
  luxemburg <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(20)")
  luxemburg$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Malta" ) {
  malta <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(21)")
  malta$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Netherlands" ) {
  netherlands <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(22)")
  netherlands$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Norway" ) {
  norway <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(23)")
  norway$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Poland" ) {
  poland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(24)")
  poland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Portugal" ) {
  portugal <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(25)")
  portugal$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Romania" ) {
  romania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(26)")
  romania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Slovakia" ) {
  slovakia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(27)")
  slovakia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Slovenia" ) {
  slovenia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(28)")
  slovenia$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country2 == "Spain" ) {
  spain <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(29)")
  spain$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country2 == "Sweden" ) {
  sweden <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(30)")
  sweden$clickElement()#clica no botão para selecionar a opção
}
 
if (country2 == "United Kingdom" ) {
  united.kingdom <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(31)")
  united.kingdom$clickElement()#clica no botão para selecionar a opção
}
 
}

##################################################################################
####################SELEÇÃO DO TERCEIRO PAÍS######################################
##################################################################################
if (!is.null(country3)){#Teste lógico para verificar se o usuário indicou algum país na terceira posição

if (country3 == "Austria" ) {
  austria <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(2)") 
  austria$clickElement()#clica no botão para selecionar a opção
}
if (country3 == "Belgium" ) {
  belgium <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(3)")
  belgium$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Bulgaria" ) {
  bulgaria <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(4)")
  bulgaria$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Croatia" ) {
  croatia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(5)")
  croatia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Cyprus" ) {
  cyprus <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(6)")
  cyprus$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Cz.rep" ) {
  cz.rep <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(7)")
  cz.rep$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Denmark" ) {
  denmark <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(8)")
  denmark$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Estonia" ) {
  estonia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(9)")
  estonia$clickElement()#clica no botão para selecionar a opção
}
 
#### EU.EEA TEM APENAS NA PRIMEIRA OPÇÃO
# if (country2 == "Eu.eea" ) {
#   eu.eea <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(10)")
#   eu.eea$clickElement()
# }
 
#
if (country3 == "Finland" ) {
  finland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(10)")
  finland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "France" ) {
  france <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(11)")
  france$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country3 == "Germany" ) {
  germany <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(12)")
  germany$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Greece" ) {
  greece <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(13)")
  greece$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Hungary" ) {
  hungary <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(14)")
  hungary$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Iceland" ) {
  iceland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(15)")
  iceland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Ireland" ) {
  ireland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(16)")
  ireland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Italy" ) {
  italy <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(17)")
  italy$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Latvia" ) {
  latvia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(18)")
  latvia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Lithuania" ) {
  lithuania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(19)")
  lithuania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Luxemburg" ) {
  luxemburg <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(20)")
  luxemburg$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Malta" ) {
  malta <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(21)")
  malta$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Netherlands" ) {
  netherlands <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(22)")
  netherlands$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country3 == "Norway" ) {
  norway <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(23)")
  norway$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Poland" ) {
  poland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(24)")
  poland$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country3 == "Portugal" ) {
  portugal <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(25)")
  portugal$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country3 == "Romania" ) {
  romania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(26)")
  romania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Slovakia" ) {
  slovakia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(27)")
  slovakia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Slovenia" ) {
  slovenia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(28)")
  slovenia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Spain" ) {
  spain <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(29)")
  spain$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country3 == "Sweden" ) {
  sweden <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(30)")
  sweden$clickElement()#clica no botão para selecionar a opção
}
  
if (country3 == "United Kingdom" ) {
  united.kingdom <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country3 > option:nth-child(31)")
  united.kingdom$clickElement()#clica no botão para selecionar a opção
}
 
}
 
##################################################################################
####################SELEÇÃO DO QUARTO PAÍS######################################
##################################################################################
if (!is.null(country4)){#Teste lógico para verificar se o usuário indicou algum país na quarta posição
if (country4 == "Austria" ) {
  austria <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(2)") 
  austria$clickElement()#clica no botão para selecionar a opção
}
if (country4 == "Belgium" ) {
  belgium <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(3)")
  belgium$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country4 == "Bulgaria" ) {
  bulgaria <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(4)")
  bulgaria$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Croatia" ) {
  croatia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(5)")
  croatia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Cyprus" ) {
  cyprus <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(6)")
  cyprus$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Cz.rep" ) {
  cz.rep <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(7)")
  cz.rep$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country4 == "Denmark" ) {
  denmark <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(8)")
  denmark$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country4 == "Estonia" ) {
  estonia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(9)")
  estonia$clickElement()#clica no botão para selecionar a opção
}
   
#### EU.EEA TEM APENAS NA PRIMEIRA OPÇÃO
# if (country2 == "Eu.eea" ) {
#   eu.eea <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(10)")
#   eu.eea$clickElement()
# }
 
#
if (country4 == "Finland" ) {
  finland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(10)")
  finland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "France" ) {
  france <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(11)")
  france$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Germany" ) {
  germany <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(12)")
  germany$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Greece" ) {
  greece <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(13)")
  greece$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Hungary" ) {
  hungary <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(14)")
  hungary$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Iceland" ) {
  iceland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(15)")
  iceland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Ireland" ) {
  ireland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(16)")
  ireland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Italy" ) {
  italy <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(17)")
  italy$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Latvia" ) {
  latvia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(18)")
  latvia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Lithuania" ) {
  lithuania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(19)")
  lithuania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Luxemburg" ) {
  luxemburg <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(20)")
  luxemburg$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Malta" ) {
  malta <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(21)")
  malta$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Netherlands" ) {
  netherlands <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(22)")
  netherlands$clickElement()#clica no botão para selecionar a opção
}
 
# 
if (country4 == "Norway" ) {
  norway <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(23)")
  norway$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Poland" ) {
  poland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(24)")
  poland$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Portugal" ) {
  portugal <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(25)")
  portugal$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Romania" ) {
  romania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(26)")
  romania$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Slovakia" ) {
  slovakia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(27)")
  slovakia$clickElement()#clica no botão para selecionar a opção
}
  
#
if (country4 == "Slovenia" ) {
  slovenia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(28)")
  slovenia$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Spain" ) {
  spain <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(29)")
  spain$clickElement()#clica no botão para selecionar a opção
}
 
#
if (country4 == "Sweden" ) {
  sweden <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(30)")
  sweden$clickElement()#clica no botão para selecionar a opção
}
 
 if (country4 == "United Kingdom" ) {
   united.kingdom <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country4 > option:nth-child(31)")
  united.kingdom$clickElement()#clica no botão para selecionar a opção
 }
}

 ##################################################################################
 ####################SELEÇÃO DO QUINTO PAÍS######################################
 ##################################################################################
if (!is.null(country5)) {#Teste lógico para verificar se o usuário indicou algum país na quinta posição
 
  
if (country5 == "Austria" ) {
  austria <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(2)") 
  austria$clickElement()#clica no botão para selecionar a opção
}
if (country5 == "Belgium" ) {
  belgium <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(3)")
  belgium$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Bulgaria" ) {
  bulgaria <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(4)")
  bulgaria$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Croatia" ) {
  croatia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(5)")
  croatia$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Cyprus" ) {
  cyprus <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(6)")
  cyprus$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Cz.rep" ) {
  cz.rep <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(7)")
  cz.rep$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Denmark" ) {
  denmark <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(8)")
  denmark$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Estonia" ) {
  estonia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(9)")
  estonia$clickElement()#clica no botão para selecionar a opção
}

#### EU.EEA TEM APENAS NA PRIMEIRA OPÇÃO
# if (country2 == "Eu.eea" ) {
#   eu.eea <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country2 > option:nth-child(10)")
#   eu.eea$clickElement()
# }

#
if (country5 == "Finland" ) {
  finland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(10)")
  finland$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "France" ) {
  france <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(11)")
  france$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Germany" ) {
  germany <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(12)")
  germany$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Greece" ) {
  greece <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(13)")
  greece$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Hungary" ) {
  hungary <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(14)")
  hungary$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Iceland" ) {
  iceland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(15)")
  iceland$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Ireland" ) {
  ireland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(16)")
  ireland$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Italy" ) {
  italy <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(17)")
  italy$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Latvia" ) {
  latvia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(18)")
  latvia$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Lithuania" ) {
  lithuania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(19)")
  lithuania$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Luxemburg" ) {
  luxemburg <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(20)")
  luxemburg$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Malta" ) {
  malta <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(21)")
  malta$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Netherlands" ) {
  netherlands <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(22)")
  netherlands$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Norway" ) {
  norway <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(23)")
  norway$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Poland" ) {
  poland <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(24)")
  poland$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Portugal" ) {
  portugal <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(25)")
  portugal$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Romania" ) {
  romania <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(26)")
  romania$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Slovakia" ) {
  slovakia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(27)")
  slovakia$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Slovenia" ) {
  slovenia <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(28)")
  slovenia$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Spain" ) {
  spain <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(29)")
  spain$clickElement()#clica no botão para selecionar a opção
}

#
if (country5 == "Sweden" ) {
  sweden <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(30)")
  sweden$clickElement()#clica no botão para selecionar a opção
}

if (country5 == "United Kingdom" ) {
  united.kingdom <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_Country5 > option:nth-child(31)")
  united.kingdom$clickElement()#clica no botão para selecionar a opção
}
}  
 

##################################################################################
####################SELEÇÃO DO DATA INICIA########################################
##################################################################################
#Série de testes lógicos para verificar qual data inicial o usuário indicou

if (yearFrom == "2014") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(1)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2013") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(2)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2012") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(3)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2011") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(4)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2010") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(5)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2009") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(6)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2008") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(7)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2007") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(8)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2006") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(9)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2005") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(10)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2004") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(11)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2003") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(12)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2002") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(13)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2001") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(14)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2000") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(15)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "1999") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(16)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "1998") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(17)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#


##################################################################################
####################SELEÇÃO DO DATA FINAL#########################################
##################################################################################
#Série de testes lógicos para verificar qual data final o usuário indicou
if (yearTo == "2014") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(1)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2013") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(2)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2012") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(3)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearFrom == "2011") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(4)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2010") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(5)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2009") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(6)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2008") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(7)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2007") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(8)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2006") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(9)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2005") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(10)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2004") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearFrom > option:nth-child(11)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2003") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(12)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2002") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(13)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2001") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(14)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "2000") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(15)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "1999") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(16)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#
if (yearTo == "1998") {
  year_from3 <- remDr$findElement(using = 'css selector', "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_ddl_YearTo > option:nth-child(17)") #um jeito de clicar em uma opção de um menu "drop down" com expressão regular
  year_from3$clickElement()#clica no botão para selecionar a opção
}
#

####################################################################################
###################ATUALIZA A TABELA APÓS TODOS OS PARAMETROS ESTAREM DEFINIDOS#####
####################################################################################  
updateTable <- remDr$findElement(using = "css selector", "#ctl00_m_g_2c2d7e19_1605_45c4_8265_db7f989f2018_ctl00_btnFilter") #SELECIONA O BOTÃO QUE ATUALIZA O SITE APÓS O USUÁRIO DEFINIR OS PARÂMETROS DE BUSCA
updateTable$clickElement() #CLICA NO BOTÃO SELECIONADO ACIMA
remDr$setImplicitWaitTimeout(wait*1000) #ESPERA ATÉ 10000 SEGUNDOS A PÁGINA CARREGAR

####################################################################################
####################SELECIONAR OS DADOS DA TABELA########################################
####################################################################################  
nomesTabela <- c("", "Country", "Year", "Antibiotic Group", "S", "I", "R", "Total.N", "X.S", "X.I", "X.R")  #VETOR QUE CONTEM OS NOMES DE CADA COLUNA. SERÁ USADO PARA SUBSTITUIR OS NOMES QUE VIERAM NO DATA FRAME. S= susceptible; I = Intermediate; R = Resistant; X.S = % susceptible; X.I = % Intermediate; X.R = % resistant
tableElem <- remDr$findElement(using = "xpath", "html/body/form/div[4]/div[3]/div/div[2]/div[2]/div/div/div/div[3]/table/tbody/tr/td/table/tbody/tr/td/div/div/div/div/div[3]/div/span/div/table/tbody/tr[4]/td[3]/div/div[1]/div/table/tbody/tr/td/table/tbody/tr[2]/td/table/tbody/tr/td/table/tbody/tr/td/table/tbody/tr/td/table") #COMANDO UTILIZADO PARA ENCONTRAR E SELECIONAR A TABELA GERADA NO SITE
my.table <- readHTMLTable(htmlParse(tableElem$getElementAttribute("outerHTML")[[1]]), as.data.frame = TRUE, stringAsFactors = FALSE, skip.rows = c(1:2)) #COMANDO UTILIZADO PARA COPIAR A TABELA GERADA CADA VEZ QUE O USUÁRIO SELECIONA OS PARÂMETROS DE BUSCA. AS DUAS PRIMEIRAS LINHAS VEM VAZIAS POR ISSO JÁ DESCARTO ELAS AQUI MESMO.
results <- my.table[4] #RESULTADO DO COMANDO ACIMA GERA UMA LISTA DE DATA.FRAMES. A TABELA QUE QUEREMOS ESTÁ SEMPRE NO 4 ELEMENTO
data <- results[[1]] #CLASSE DE results AINDA É UMA LSITA. COM ESSE COMANDO ARMAZENO A TABELA COMO UM DATA.FRAME
colnames(data) <- nomesTabela #COMANDO QUE SUBSTITUI OS NOMES DAS COLUNAS PELO VETOR CRIADO ANTERIORMENTE
set(data, j = '', value = NULL) #RETIRA A PRIMEIRA COLUNA, QUE VEM EM BRANCO
data2 <- transform(data, S = as.character(S), I = as.character(I), R = as.character(R), Total.N = as.character(Total.N), X.S = as.character(X.S), X.I = as.character(X.I), X.R = as.character(X.R)) #TODOS OS ELEMENTOS VÊM COMO FATORES. LINHA PARA TRASNFORMAR O QUE NÃO É FATOR EM CARACTER


#########FUNÇÃO PARA RETIRAR PORCENTAGEM#########
######### AS 3 ÚLTIMAS COLUNAS VEM COM O SIMBOLO "%". ESSA FUNÇÃO RETIRA O SIMBOLO E DIVIDE POR 100
topct <- function(x) {   
  as.numeric( sub("\\D*([0-9.]+)\\D*","\\1",x) )/100 
}
#################################################
data2$X.S <- topct(data2$X.S) #SUBSTITUI OS VALORES DA COLUNA UTILIZANDO A FUNÇÃO ACIMA
data2$X.I <- topct(data2$X.I) #SUBSTITUI OS VALORES DA COLUNA UTILIZANDO A FUNÇÃO ACIMA
data2$X.R <- topct(data2$X.R) #SUBSTITUI OS VALORES DA COLUNA UTILIZANDO A FUNÇÃO ACIMA
##########TRANSFORMA CARACTERES EM NÚEROS ONDE NECESSÁRIO########################
data3 <- transform(data2, S = as.numeric(S), I = as.numeric(I), R = as.numeric(R), Total.N = as.numeric(Total.N), X.S = as.numeric(X.S), X.I = as.numeric(X.I), X.R = as.numeric(X.R)) #TRANSFORMA OS CARACTERES EM NÚMEROS

return(data3)#Retorna na tela do usuário o data.frame formatado com todas as informações geradas pelos argumentos de busca

}   
\end{verbatim}


\end{document}
