====== Função=====
  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
  
  }