Índice
- O Curso R
-
- Tutoriais
-
- Apostila
-
- 6. Testes de Hipótese (em preparação!)
- Exercícios
-
- Material de Apoio
-
- Área dos Alunos
-
- Cursos Anteriores
-
IBUSP
Outras Insitutições
Linques
Visitantes
Ferramentas do usuário
Barra lateral
05_curso_antigo:r2016:alunos:trabalho_final:luizgualmeida:function
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
}
05_curso_antigo/r2016/alunos/trabalho_final/luizgualmeida/function.txt · Última modificação: 2020/08/12 06:04 (edição externa)
Exceto onde for informado ao contrário, o conteúdo neste wiki está sob a seguinte licença: CC Attribution-Noncommercial-Share Alike 4.0 International
