rs <- RSelenium::remoteDriver()
rs$open()
#> [1] "Connecting to remote server"
#> $acceptInsecureCerts
#> [1] FALSE
#>
#> $browserName
#> [1] "firefox"
#>
#> $browserVersion
#> [1] "76.0.1"
#>
#> $`moz:accessibilityChecks`
#> [1] FALSE
#>
#> $`moz:buildID`
#> [1] "20200507114007"
#>
#> $`moz:geckodriverVersion`
#> [1] "0.26.0"
#>
#> $`moz:headless`
#> [1] FALSE
#>
#> $`moz:processID`
#> [1] 451
#>
#> $`moz:profile`
#> [1] "/tmp/rust_mozprofileH7Ch2R"
#>
#> $`moz:shutdownTimeout`
#> [1] 60000
#>
#> $`moz:useNonSpecCompliantPointerOrigin`
#> [1] FALSE
#>
#> $`moz:webdriverClick`
#> [1] TRUE
#>
#> $pageLoadStrategy
#> [1] "normal"
#>
#> $platformName
#> [1] "linux"
#>
#> $platformVersion
#> [1] "4.15.0-1028-gcp"
#>
#> $rotatable
#> [1] FALSE
#>
#> $setWindowRect
#> [1] TRUE
#>
#> $strictFileInteractability
#> [1] FALSE
#>
#> $timeouts
#> $timeouts$implicit
#> [1] 0
#>
#> $timeouts$pageLoad
#> [1] 300000
#>
#> $timeouts$script
#> [1] 30000
#>
#>
#> $unhandledPromptBehavior
#> [1] "dismiss and notify"
#>
#> $webdriver.remote.sessionid
#> [1] "98aed944-78dd-4022-b870-538f9670f5ea"
#>
#> $id
#> [1] "98aed944-78dd-4022-b870-538f9670f5ea"
# With docker
#shell("docker pull selenium/standalone-firefox:3.141.59")
#shell("docker run -d -p 4445:4444 selenium/standalone-firefox:3.141.59")
#rs <- RSelenium::remoteDriver()
#rs$open()
# Without docker
rs_serverclient <- RSelenium::rsDriver(browser = "firefox", geckover = "0.25.0")
rs <- rs_serverclient$client
rs$open()
dodv_ger_a <- get_dodv_ranklist(url = "https://segler-rangliste.de/dodv/#/opti-a-ger",
all_years = FALSE)
#> Getting ranklist from: https://segler-rangliste.de/dodv/#/opti-a-ger
#> Getting ranklist for year: 2020
schwielochsee <- get_dodv_regatta_results("https://segler-rangliste.de/dodv/#/opti-a-em-wma/regatta/2019A062/info")
stanjek <- get_dodv_regatta_results("https://segler-rangliste.de/dodv/#/opti-a-year-ger/regatta/2019A026/info")
ahorn_cup <- get_dodv_regatta_results("https://segler-rangliste.de/dodv/#/opti-a-ger/regatta/2019A064/info")
herbst18 <- get_dodv_regatta_results("https://segler-rangliste.de/dodv/#/opti-a-ger/regatta/2018A132/info")
herbst19_registiations <- manage2sail_registrations("https://www.manage2sail.com/de-DE/event/5b69e6bf-d50a-4536-a203-54e90bd8320d#!/entries?classId=ba596ce5-2827-4b97-8fa4-568ca20659cb")
dplyr::inner_join(schwielochsee[,"segel", drop=FALSE], dodv_ger_a) %>% summary()
#> Joining, by = "segel"
#> segel pos nachname vorname
#> Length:2 Min. :21.0 Length:2 Length:2
#> Class :character 1st Qu.:24.5 Class :character Class :character
#> Mode :character Median :28.0 Mode :character Mode :character
#> Mean :28.0
#> 3rd Qu.:31.5
#> Max. :35.0
#> jg geschl verein region
#> Min. :2005 Length:2 Length:2 Length:2
#> 1st Qu.:2005 Class :character Class :character Class :character
#> Median :2006 Mode :character Mode :character Mode :character
#> Mean :2006
#> 3rd Qu.:2006
#> Max. :2006
#> reg laufe gew punkte wertungen
#> Min. :1.00 Min. :4.0 Min. :4.0 Min. : 68.23 Length:2
#> 1st Qu.:1.25 1st Qu.:4.5 1st Qu.:4.5 1st Qu.: 76.74 Class :character
#> Median :1.50 Median :5.0 Median :5.0 Median : 85.25 Mode :character
#> Mean :1.50 Mean :5.0 Mean :5.0 Mean : 85.25
#> 3rd Qu.:1.75 3rd Qu.:5.5 3rd Qu.:5.5 3rd Qu.: 93.76
#> Max. :2.00 Max. :6.0 Max. :6.0 Max. :102.27
#> x rank_title rank_period
#> Length:2 Length:2 Length:2
#> Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character
#>
#>
#>
dplyr::inner_join(stanjek[,"segel", drop=FALSE], dodv_ger_a) %>% summary()
#> Joining, by = "segel"
#> segel pos nachname vorname
#> Length:52 Min. : 2.00 Length:52 Length:52
#> Class :character 1st Qu.:25.75 Class :character Class :character
#> Mode :character Median :54.00 Mode :character Mode :character
#> Mean :51.38
#> 3rd Qu.:79.25
#> Max. :99.00
#> jg geschl verein region
#> Min. :2005 Length:52 Length:52 Length:52
#> 1st Qu.:2006 Class :character Class :character Class :character
#> Median :2007 Mode :character Mode :character Mode :character
#> Mean :2007
#> 3rd Qu.:2007
#> Max. :2009
#> reg laufe gew punkte
#> Min. :1.000 Min. :3.000 Min. :3.000 Min. : 9.45
#> 1st Qu.:1.000 1st Qu.:3.000 1st Qu.:3.000 1st Qu.: 39.68
#> Median :1.000 Median :3.500 Median :3.500 Median : 68.14
#> Mean :1.308 Mean :4.173 Mean :4.173 Mean : 67.74
#> 3rd Qu.:2.000 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.: 97.11
#> Max. :2.000 Max. :7.000 Max. :7.000 Max. :132.25
#> wertungen x rank_title rank_period
#> Length:52 Length:52 Length:52 Length:52
#> Class :character Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character Mode :character
#>
#>
#>
dplyr::inner_join(ahorn_cup[,"segel", drop=FALSE], dodv_ger_a) %>% summary()
#> Joining, by = "segel"
#> segel pos nachname vorname
#> Length:17 Min. :16.00 Length:17 Length:17
#> Class :character 1st Qu.:28.00 Class :character Class :character
#> Mode :character Median :36.00 Mode :character Mode :character
#> Mean :40.59
#> 3rd Qu.:52.00
#> Max. :84.00
#> jg geschl verein region
#> Min. :2005 Length:17 Length:17 Length:17
#> 1st Qu.:2006 Class :character Class :character Class :character
#> Median :2007 Mode :character Mode :character Mode :character
#> Mean :2007
#> 3rd Qu.:2007
#> Max. :2009
#> reg laufe gew punkte
#> Min. :1.000 Min. :3.000 Min. :3.000 Min. : 24.06
#> 1st Qu.:1.000 1st Qu.:4.000 1st Qu.:4.000 1st Qu.: 49.10
#> Median :1.000 Median :4.000 Median :4.000 Median : 79.69
#> Mean :1.294 Mean :4.412 Mean :4.412 Mean : 74.82
#> 3rd Qu.:2.000 3rd Qu.:6.000 3rd Qu.:6.000 3rd Qu.: 93.83
#> Max. :2.000 Max. :6.000 Max. :6.000 Max. :120.45
#> wertungen x rank_title rank_period
#> Length:17 Length:17 Length:17 Length:17
#> Class :character Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character Mode :character
#>
#>
#>
dplyr::inner_join(herbst18[,"segel", drop=FALSE], dodv_ger_a) %>% summary()
#> Joining, by = "segel"
#> segel pos nachname vorname
#> Length:11 Min. : 2.00 Length:11 Length:11
#> Class :character 1st Qu.:14.50 Class :character Class :character
#> Mode :character Median :39.00 Mode :character Mode :character
#> Mean :37.82
#> 3rd Qu.:52.50
#> Max. :86.00
#> jg geschl verein region
#> Min. :2005 Length:11 Length:11 Length:11
#> 1st Qu.:2006 Class :character Class :character Class :character
#> Median :2007 Mode :character Mode :character Mode :character
#> Mean :2006
#> 3rd Qu.:2007
#> Max. :2008
#> reg laufe gew punkte
#> Min. :1.000 Min. :3.000 Min. :3.000 Min. : 33.48
#> 1st Qu.:1.000 1st Qu.:4.000 1st Qu.:4.000 1st Qu.: 49.20
#> Median :1.000 Median :4.000 Median :4.000 Median : 78.97
#> Mean :1.364 Mean :4.818 Mean :4.818 Mean : 74.81
#> 3rd Qu.:2.000 3rd Qu.:6.500 3rd Qu.:6.500 3rd Qu.:100.49
#> Max. :2.000 Max. :7.000 Max. :7.000 Max. :115.96
#> wertungen x rank_title rank_period
#> Length:11 Length:11 Length:11 Length:11
#> Class :character Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character Mode :character
#>
#>
#>
dplyr::inner_join(herbst19_registiations[,"segel", drop=FALSE], dodv_ger_a) %>% summary()
#> Joining, by = "segel"
#> segel pos nachname vorname
#> Length:0 Min. : NA Length:0 Length:0
#> Class :character 1st Qu.: NA Class :character Class :character
#> Mode :character Median : NA Mode :character Mode :character
#> Mean :NaN
#> 3rd Qu.: NA
#> Max. : NA
#> jg geschl verein region
#> Min. : NA Length:0 Length:0 Length:0
#> 1st Qu.: NA Class :character Class :character Class :character
#> Median : NA Mode :character Mode :character Mode :character
#> Mean :NaN
#> 3rd Qu.: NA
#> Max. : NA
#> reg laufe gew punkte wertungen
#> Min. : NA Min. : NA Min. : NA Min. : NA Length:0
#> 1st Qu.: NA 1st Qu.: NA 1st Qu.: NA 1st Qu.: NA Class :character
#> Median : NA Median : NA Median : NA Median : NA Mode :character
#> Mean :NaN Mean :NaN Mean :NaN Mean :NaN
#> 3rd Qu.: NA 3rd Qu.: NA 3rd Qu.: NA 3rd Qu.: NA
#> Max. : NA Max. : NA Max. : NA Max. : NA
#> x rank_title rank_period
#> Length:0 Length:0 Length:0
#> Class :character Class :character Class :character
#> Mode :character Mode :character Mode :character
#>
#>
#>
calculate_regatta_factor(c(56, 82.69, 67.75))
#> [1] 0.955000 1.255262 1.087187