Set up FSurge

---

Scripts on this page allow users to:

1. Create a number of FSurge athlete accounts and assign them a team and an experimental condition.
2. Link them to a master or coach account (i.e., sending coaching invitations via the master-account and accepting them via the athlete-accounts) and activate Social Walls.
3. Personalize the accounts (i.e., adjusting athlete name)
4. Remove accounts from coaching-account / delete athlete-accounts.

1 Preparation

This tool uses automated webbrowsing using RSelenium. We first need to install this package, along with some other packages:

• netstat and pingr: find port information
• rvest: harvest webpages
• tidyverse: data wrangling
• stringr: string operations

1.1 clean up

rm(list=ls())
gc()

1.2 general custom functions

• fpackage.check: Check if packages are installed (and install if not) in R
• fgeneratepass: Password generator function
• fsave: save data with time stamp in correct directory
• fload: load R-objects under new names

fpackage.check <- function(packages) {
    lapply(packages, FUN = function(x) {
        if (!require(x, character.only = TRUE)) {
            install.packages(x, dependencies = TRUE)
            library(x, character.only = TRUE)
        }
    })
}

fgeneratepass <- function(nchar=7, nupper=1, nspecial=1, nnumber=2) {
  special <- c("!","@","#","$","%","^","&","*","(",")","_","+")
  number <- c(1:9)
  chars <- c(sample(special,nspecial,replace=T),
             sample(number,nnumber,replace=T),
             sample(LETTERS,nupper,replace=T),
             sample(letters,nchar-(nupper+nspecial+nnumber),
                    replace=T))
  pass <- paste0(sample(chars),collapse="")
  return(pass)
}

fsave <- function(x, file, location = "./local/", ...) {
    if (!dir.exists(location))
        dir.create(location)
    datename <- substr(gsub("[:-]", "", Sys.time()), 1, 8)
    totalname <- paste(location, datename, file, sep = "")
    print(paste("SAVED: ", totalname, sep = ""))
    save(x, file = totalname)
}


fload  <- function(fileName){
  load(fileName)
  get(ls()[ls() != "fileName"])
}

1.3 necessary packages

packages = c("RSelenium", "rvest", "tidyverse", "netstat", "pingr", "stringr")
fpackage.check(packages)

1.4 VPN

It may be important to use a VPN. Make sure to regularly change your public IP adress. I used HMA.

1.5 set up RSelenium

#find a free port
port <- netstat::free_port(random=TRUE)

#ping port for confirmation
pingr::ping_port("localhost", port)

#set up selenium server and browser
rD <- rsDriver(browser="firefox", port=port, chromever=NULL, verbose=F)
remDr <- rD[["client"]]

NOTE: after using RSelenium::rsDriver for a while without issue, I recently got error messages. The root cause of the problem is that rsDriver() is configured to launch the Selenium server with the latest versions of Chrome and Firefox drivers, even if you have specified the other browser to run. To solve this, just pass in NULL in the Chrome driver version chromever… (see also this and this stackoverflow post).

If at any time you wish to terminate the process, use the code:

pid <- rD$server$process$get_pid()#get process id
system(paste0("Taskkill /F /T" ," /PID ", pid))

---

2 Create accounts

We create a dataframe of accounts to be created:

• names
  
• email adresses
• passwords generated using fgeneratepass
• assign accounts to a training group
• assign groups to either a control or experimental/intervention condition

Here, we create 5 groups of 15 accounts (thus, 75 accounts)

n=75 #accounts
N=5 #groups

#make df, athlete accounts assigned to groups
accounts <- data.frame(voornaam="A", #arbirary... A for athlete
                       achternaam=as.character(c(1:n)), #indicator
                       email=NA, 
                       paswoord=NA,
                       groep=rep(1:N,each=n/N))

#groups can be given names, instead of numbers...
#i name the groups based on the course name,
#i saved this in a secret folder
load("./secret/course_names.R")
accounts$groep <- ifelse(accounts$groep==1, courses[1],
                         ifelse(accounts$groep==2, courses[2],
                                ifelse(accounts$groep==3, courses[3],
                                       ifelse(accounts$groep==4, courses[4],
                                              ifelse(accounts$groep==5, courses[5], NA)))))

#create email and password
for (i in 1:n) {
  #create email and password
  accounts$email[i] <- paste0("atleet",i,"@rsc.nl")
  accounts$paswoord[i] <- fgeneratepass(7)
}

#also, randomly assign a number of groups a social wall.
n_socwall <- 3 #here, 3
accounts$socialwall <- NA
#sample 3 groups that will be assigned a social wall
socwall_group <- sample(unique(accounts$groep),n_socwall)
accounts$socialwall <- ifelse(accounts$groep %in% socwall_group, 1,0)

#we also add a variable 'occupied', which indicates whether a pre-set account
#is customized (i.e., first and lastname are assigned) and ready for use.
accounts$occupied <- F
#and a variable id which denotes participants email adress, to ultimately link FSurge data with survey (and behavior) data
accounts$id <- NA

#save to local folder using fsave
#######fsave(accounts, "accounts.R")

Next up, we use RSelenium to create the accounts.

We customize the account settings, and the workout page:

#load in the accounts
load("./local/accounts.R")
n <- nrow(accounts)


for (i in 1:n) {
  Sys.sleep(1)
  print(paste("creating account:", accounts$email[i]))
  
  #navigate to create account page
  remDr$navigate("https://log.finalsurge.com/register.cshtml?page_redirect=%2f")

  #insert name
  remDr$findElement(using = "id", value = "create_first")$sendKeysToElement(list(accounts$voornaam[i]))
  remDr$findElement(using = "id", value = "create_last")$sendKeysToElement(list(accounts$achternaam[i]))

  #and email
  remDr$findElement(using = "id", value = "create_email")$sendKeysToElement(list(accounts$email[i]))
 
  #adjust timezone
  remDr$findElement(using = "id", value = "create_timezone")$clickElement()
  
  #get inner html
  inner <- remDr$findElement(using = "id", value = "create_timezone")$getElementAttribute("innerHTML")[[1]]
  inner %>%
    read_html() %>% #read html
    html_nodes("option") -> options #get all option tags

  #pick (GMT+01:00) Amsterdam, Berlin, ...
  remDr$findElements(using = "tag name", value ="option")[[which(grepl("Amsterdam", options))]]$clickElement()
  
  #insert password
  remDr$findElement(using = "id", value = "password_meter")$sendKeysToElement(list(accounts$paswoord[i]))
  remDr$findElement(using = "id", value = "create_passwordmatch")$sendKeysToElement(list(accounts$paswoord[i]))
  
  #create account
  remDr$findElement("class name", "btn")$clickElement()
  Sys.sleep(1)
  
  #adjust user settings
  remDr$navigate("https://log.finalsurge.com/UserProfile.cshtml?edit=s#settings")
 
   #select language: Dutch
  remDr$findElements(using = "class name", value = "radio")[[5]]$clickElement()
  Sys.sleep(.5)
  
  #convert to metric system
  remDr$findElement(using = "id", value = "UnitMetric")$clickElement()
  
  #24 hours display
  remDr$findElement(using = "id", value = "TDisplay24")$clickElement()
  
  #week start on monday
  remDr$findElement(using = "id", value = "WSM")$clickElement()
  
  #save
  remDr$findElement("id", "saveButtonSettings")$clickElement()
  Sys.sleep(1)
  
  #I also use the workout customization page to adjust what activity types athletes can upload. now it is too laborious, and there are way to many subtypes of activities.
  #note: apparently, i can only edit/delete the subtypes.
  #the activity sections/fields (eg, planned distance, heart rate, etc.) can be hidden, but this does not translate to the app...
  remDr$navigate("https://log.finalsurge.com/WorkoutCustomize.cshtml")
  
  #i just hide most pre-coded activity types... and just add all activity-types via customization
  #i need to open the box of activity type j (if not already opened)
  #and select the 'hide activity type'-checkbox.
  #and save
  #first, i put the ids of these checkboxes, and savebuttons in vectors
  
  hidebox <- c(1,11,18,19,20,25,33,34,35,40)
  savebtn <- c("saveButton_00000001-0001-0001-0001-000000000001",
               "saveButton_00000003-0003-0003-0003-000000000003",
               "saveButton_00000010-0010-0010-0010-000000000010",
               "saveButton_00000005-0005-0005-0005-000000000005",
               "saveButton_00000008-0008-0008-0008-000000000008",
               "saveButton_00000002-0002-0002-0002-000000000002",
               "saveButton_00000004-0004-0004-0004-000000000004",
               "saveButton_00000006-0006-0006-0006-000000000006",
               "saveButton_00000007-0007-0007-0007-000000000007",
               "saveButton_00000009-0009-0009-0009-000000000009")
          
  for (j in c(4,5,7,8,9,10)){ #for pre-set activity types 
    #(but keep running, swimming, walking, cycling; because of the nice symbol!)
    Sys.sleep(1)
    #open box of activity type j (if not already opened)
    if(remDr$findElements("class name", "w-box-content")[[j]]$getElementText()[[1]] == ""){
      remDr$findElements("class name", "w-box-header")[[j]]$clickElement()  }
    #click hide-checkbox
    remDr$findElements("class name", "checkbox")[[hidebox[j]]]$clickElement()
    #save
    Sys.sleep(.5)
    remDr$findElement("id", savebtn[j])$clickElement()
    #close box
    Sys.sleep(.5)
    remDr$findElements("class name", "w-box-header")[[j]]$clickElement() 
  }
  Sys.sleep(1)
 
  #for running, swimming, cycling, hide subtype fields
  #1 running
  if(remDr$findElements("class name", "w-box-content")[[1]]$getElementText()[[1]] == ""){
    remDr$findElements("class name", "w-box-header")[[1]]$clickElement()  
  }
  #select all subtypes, so that they will be hidden
  for (j in 2:10){
    Sys.sleep(.5)
    remDr$findElements("class name", "checkbox")[[j]]$clickElement()
  }
  #save and hide
  Sys.sleep(.5)
  remDr$findElement("id", savebtn[1])$clickElement()
  Sys.sleep(.5)
  remDr$findElements("class name", "w-box-header")[[1]]$clickElement()
  
  #2 swimming
  if(remDr$findElements("class name", "w-box-content")[[2]]$getElementText()[[1]] == ""){
    remDr$findElements("class name", "w-box-header")[[2]]$clickElement()  
  }
  for (j in 12:17){
    Sys.sleep(.5)
    remDr$findElements("class name", "checkbox")[[j]]$clickElement()
  }
  remDr$findElement("id", savebtn[2])$clickElement()
  Sys.sleep(1)
  remDr$findElements("class name", "w-box-header")[[2]]$clickElement()
  
  #3 cycling
  if(remDr$findElements("class name", "w-box-content")[[6]]$getElementText()[[1]] == ""){
    remDr$findElements("class name", "w-box-header")[[6]]$clickElement()  
  }
  for (j in 26:32){
    Sys.sleep(.5)
    remDr$findElements("class name", "checkbox")[[j]]$clickElement()
  }
  remDr$findElement("id", savebtn[6])$clickElement()
  Sys.sleep(1)
  remDr$findElements("class name", "w-box-header")[[6]]$clickElement()
  
  #now add other acitivities myself
  remDr$navigate("https://log.finalsurge.com/Activities.cshtml")
  
  #this can of course be adjusted
  sports <- c("RSC Fitness (vrij sporten)", "RSC Cursus", "RSC Ticketuur", "Roeien", "Tennis/Squash", "Klimmen/Boulderen", "Vechtsport", "Overige sport")
  
  for (j in unique(sports)){
    Sys.sleep(.5)
    remDr$findElement("id", "ATypeName")$sendKeysToElement(list(j))
    Sys.sleep(.5)
    remDr$findElement("id", "saveButton")$clickElement()
  }
  
  #and subtype for 'courses'
  courses <- c("Krachttraining", "Overig")
  
  if(remDr$findElements("class", "w-box-content")[[16]]$getElementText()[[1]]==""){
    remDr$findElements("class", "w-box-header")[[16]]$clickElement()
  }
  for (j in unique(courses)){
    Sys.sleep(.5)
    remDr$findElements("id", "SubTypeName")[[14]]$sendKeysToElement(list(j))
    Sys.sleep(.5)
    remDr$findElements("id", "saveSubType")[[14]]$clickElement()
  }
  
  #log out
  Sys.sleep(.5)
  remDr$findElement(using = 'link text','Uitloggen')$clickElement()
}

3 Link accounts to master-account

Now that our athlete-accounts are created, we need to link them the our coaching accounts.

3.1 send invitations

First, we send coaching invitations using our coaching account.

I saved my login credentials in my secret-folder. So, first make a secret-folder, in which you can store your own credentials.

ifelse(!dir.exists("secret"), dir.create("secret"), FALSE)

#navigate to login page
remDr$navigate("https://log.finalsurge.com/login.cshtml?Assoc=&page_redirect=/")

#load master account credentials
load("./secret/master_account.R")

#login
remDr$findElement(using = "id", value = "login_name")$sendKeysToElement(list(master$email))
remDr$findElement(using = "id", value = "login_password")$sendKeysToElement(list(master$password))
remDr$findElements("class name", "btn")[[1]]$clickElement()

#invite all athletes belonging to a group/team at once
for (i in unique(accounts$groep)) { 
  Sys.sleep(5)
  #manage athletes
  remDr$navigate("https://log.finalsurge.com/CoachAthletes.cshtml")
  
  #get emailadresses of athletes belonging to group i
  emails <- accounts$email[which(accounts$groep==i)]
  
  #send keys to element; put comma in between
  #remDr$findElement("id", "AthleteEmail")$highlightElement()
  remDr$findElement(using = "id", value = "AthleteEmail")$sendKeysToElement(list(
    paste(emails,collapse=",\n")))

  #select team
  #remDr$findElement("id","AthleteTeam")$highlightElement()
  Sys.sleep(1)
  remDr$findElement("id","AthleteTeam")$clickElement()
  
  #get inner hml
  inner <- remDr$findElement(using = "id", value = "AthleteTeam")$getElementAttribute("innerHTML")[[1]]
  inner %>%
    read_html() %>% #read html
    html_nodes("option") -> teams #get all option tags

  #selection option corresponding to team i, using xpath
  #remDr$findElement("xpath", paste0("//select[@id = 'AthleteTeam']/option[", which(grepl(i, teams)), "]"))$highlightElement()
  remDr$findElement("xpath", paste0("//select[@id = 'AthleteTeam']/option[", which(grepl(i, teams)), "]"))$clickElement()
  
  #continue
  #remDr$findElement("id", "saveButton")$highlightElement()
  Sys.sleep(1)
  remDr$findElement("id", "saveButton")$clickElement()
  Sys.sleep(2)
  
  #invite 
  #remDr$findElement("id", "multiButton")$highlightElement()
  remDr$findElement("id", "multiButton")$clickElement()
}

3.2 activate social walls

Now that all athletes are assigned to (invited for) a team, we activate a Social Wall for teams that are assigned the experimental condition.

This must be done via the beta-platform of FSurge.

#navigate to the beta-platform
remDr$findElements("class name", "ptip_s")[[9]]$clickElement()

#navigate to the social wall page
remDr$navigate("https://beta.finalsurge.com/social-wall")

for (i in unique(accounts$groep)) { # for groups/teams

  #that were assigned the social wall condition
  if(accounts$socialwall[accounts$groep==i][1]==1) {
    
    remDr$findElement("class", "rich-select__trigger")$clickElement()
    Sys.sleep(.5)
    remDr$findElement("class", "rich-list__action")$clickElement()
    
    #name the wall. I just call all walls "Social wall"
    #remDr$findElements("class", "fs-form-input")[[2]]$highlightElement()
    remDr$findElements("class", "fs-form-input")[[2]]$sendKeysToElement(list("Social Wall"))
    
    #add team
    Sys.sleep(.5)
    #remDr$findElements("class", "rich-select__trigger")[[2]]$highlightElement()
    remDr$findElements("class", "rich-select__trigger")[[2]]$clickElement()
    
    #this is rather complicated... i extract inner html of element of class "el-popover",
    #but since the id changes each iteration (don't know why...), first extract this id
    inner <- remDr$findElement("class", "fs-modal__content")$getElementAttribute("innerHTML")[[1]]
    inner %>%
      str_split("el-popover") %>%
      .[[1]] %>%
      .[length(.)] %>%
      str_split(" ") %>%
      .[[1]] %>%
      .[1] %>%
      substr(2,nchar(.)-1) -> id
    
    #now get inner html of element with id el-popover-'id'
    inner <-remDr$findElement("id", paste0("el-popover-",id))$getElementAttribute("innerHTML")[[1]]
    
    #extract options (teams); based on item-text
    inner %>%
      str_split( "rich-list-item__text") %>%
      .[[1]] -> options
    
    #get indicator of item-text that corresponds to team-name of i
    ind <- which(grepl(i,options))
    
    #click checkbox;
    #note the "minus 1" (because the "all teams"-checkbox is not a rich-list-item__checkbox)...
    #remDr$findElements("class", "rich-list-item__checkbox")[[ind-1]]$highlightElement()
    remDr$findElements("class", "rich-list-item__checkbox")[[ind-1]]$clickElement()
    
    #create wall
    #there are multiple elements of class button__content.
    #but the last one (thus element equal to length of list of these elements) is
    #the create social wall button
    Sys.sleep(.5)
    list <- remDr$findElements("class", "button__border")
    #remDr$findElements("class", "button__border")[[length(list)]]$highlightElement()
    remDr$findElements("class", "button__border")[[length(list)]]$clickElement()
    
    Sys.sleep(2)
  }
}

#DONE! now log out
#remDr$findElement("class", "profile-info")$highlightElement()
remDr$findElement("class", "profile-info")$clickElement()
#remDr$findElements("class", "menu-collapsed")[[10]]$highlightElement()
remDr$findElements("class", "menu-collapsed")[[10]]$clickElement()

#there seems to be a bug: if i navigate to the 'regular'/non-beta version of FSurge, i am still logged in. so also logout via regular version
remDr$navigate("https://log.finalsurge.com/")
remDr$findElement(using = 'link text','Uitloggen')$clickElement()
remDr$findElement(using = 'link text','Log in account')$clickElement()

3.3 accept invitations

As a last step, I accept the coaching invitations via the athlete-accounts.

for (i in 1:n) {
  
  print(paste("accepting invitation:", accounts$email[i]))
  
  #navigate to login page
  remDr$navigate("https://log.finalsurge.com/")
  
  #login
  remDr$findElement(using = "id", value = "login_name")$sendKeysToElement(list(accounts$email[i]))
  remDr$findElement(using = "id", value = "login_password")$sendKeysToElement(list(accounts$paswoord[i]))
  remDr$findElements("class name", "btn")[[1]]$clickElement()
  
  Sys.sleep(1)
  
  #navigate to invitation
  remDr$navigate(paste0("https://log.finalsurge.com/", "invitation.cshtml"))

  #accept request
  Sys.sleep(.5)
  #remDr$findElements("class", "btn")[[1]]$highlightElement()
  remDr$findElements("class", "btn")[[1]]$clickElement()
  Sys.sleep(.5)
  #log out
  #remDr$findElement(using = 'link text','Uitloggen')$highlightElement()
  remDr$findElement(using = 'link text','Uitloggen')$clickElement()

}

---

4 Personalize accounts

Recruited participants fill out a short (pre-intervention) survey, in which they give - among others - their first and last name. We use these data to ‘personalize’ the accounts.

Setup: at the end of each recruitment day (and the week after recruitment):

1. load (updated) pre-set accounts df
2. load (updated) pre-intervention survey responses
3. get all of today’s responses (i.e., completed before midnight)
4. for each participant, ‘personalize’ the account using first and lastname
5. update (and fsave) the accounts df by setting occupied=TRUE, allowing me to: a. assign new participants to non-occupied accounts and b. identify accounts that need to be looped over for the experiment. I also attach participants’ email to the dataframe, so that I can link FSurge data with survey (and behavioral trace) data.

#1 load newest version of accounts df
#with occupied=TRUE for pre-set accounts that are personalized/ready for use. 

#if newest version was saved yesterday, this works:
#accounts <- fload(paste0("./local/", substr(gsub("[:-]", "", Sys.Date()-1), 1, 8), "accounts.R"))
# or just: load("./local/accounts.R") #if I save the updated version with the base-R save function.
accounts <- fload("./local/accounts.R")
fix(accounts)

#2 load (most recent) pre-intervention responses
#a new version/export should be copied to the local folder each day/iteration...
df <- read.csv("./local/voormeting/results-survey119535.csv")
#these are *complete* responses!

#3 get today's responses (bc previous responses are already handled!)
df <- df[which(as.Date(df$submitdate)==Sys.Date()),]
#or last few... df <- tail(df,X)
#also remove 'test' responses, which were indicated with firstname 'test'
df <- df[which(!tolower(df$emails.3.)=="test"),]

#4 personalize accounts for these respondents
#5 update accounts df by setting occupied=TRUE

#preparation:
#make groups names in survey df resemble those of the 'accounts' df
df$S0 <- ifelse(df$S0 == "Krachttraining basis beginner - maandag (17:45-19:00)", "Krachttraining basis - maandag",
                 ifelse(df$S0 == "Krachttraining sportspecifiek - maandag (21:00-22:15)",  "Krachttraining sportspecifiek - maandag",
                        ifelse(df$S0 == "Krachttraining basis beginner - woensdag (20:30-21:45)","Krachttraining basis - woensdag",
                               ifelse(df$S0 == "Krachttraining vrouwen - woensdag (18:00-19:15)", "Krachttraining vrouwen - woensdag",
                                      ifelse(df$S0 == "Krachttraining vrouwen - donderdag (15:45-17:00)", "Krachttraining vrouwen - donderdag", NA)))))
#also make sure Rselenium browser is (still) active.


for (i in unique(df$S0)) { #for each unique group

  #retrieve the survey respondents that reported to be part of this group
  df_sub <- df[which(df$S0==i),]
  #how many are there (ie, new ones)?
  n <- nrow(df_sub)
  
  #for each athlete j belonging to this group, in 1:n, 
  #'personalize' the account
  
  for (j in 1:n) {

    Sys.sleep(1)
    
    #get personal data from survey
    firstname <- df_sub$emails.3.[j]
    lastname <- substr(df_sub$emails.4.[j],1,1)
    email <- df_sub$emails.1.[j]
    
    Sys.sleep(1)

    #navigate log in page
    remDr$navigate("https://log.finalsurge.com/login.cshtml")
    
    #this respondent gets assigned the first entry from the `accounts` df, with group==i & occupied==F)
    entry <- accounts[which(accounts$groep==i & accounts$occupied==F)[1],]
    
    #login with the corresponding account
    remDr$findElement(using = "id", value = "login_name")$sendKeysToElement(list(entry$email))
    remDr$findElement(using = "id", value = "login_password")$sendKeysToElement(list(entry$paswoord))
    remDr$findElements("class name", "btn")[[1]]$clickElement()
    
    #navigate edit settings
    remDr$navigate("https://log.finalsurge.com/UserProfile.cshtml?edit=p#profile")
    #remDr$findElement("id", "fname")$highlightElement()
    remDr$findElement("id", "fname")$clearElement()
    Sys.sleep(1)
    remDr$findElement("id", "fname")$sendKeysToElement(list(firstname))
    Sys.sleep(.5)
    remDr$findElement("id", "lname")$clearElement()
    Sys.sleep(1)
    remDr$findElement("id", "lname")$sendKeysToElement(list(lastname, key="enter"))
    
    Sys.sleep(2)
  
    #logout
    remDr$findElement(using = 'link text','Uitloggen')$clickElement()
    
    #account is now occupied, so set to TRUE (so that it will be skipped for the next respondent)
    #accounts[which(accounts$groep==i & accounts$occupied==F)[1],]
    #but first add the email adress of the corresponding pariticpants, as an identifier
    accounts$id[which(accounts$groep==i & accounts$occupied==F)[1]] <- email
    accounts$occupied[which(accounts$groep==i & accounts$occupied==F)[1]] <- TRUE
  }
}
fix(accounts)
#and make sure to save the accounts df as a new version
fsave(accounts,"accounts.R")
#and/or just as `accounts.R`, bc then it feeds into the socialwall updater...?
save(accounts,file="./local/accounts.R")

---

5 Remove accounts

5.1 Unlink from coaching account

If the experiment is done, (when all activity and social wall data are harvested!!!), we remove the accounts from our coaching account.

FINISHED = FALSE

if(FINISHED==TRUE){
  
  remDr$navigate("https://log.finalsurge.com/login.cshtml?Assoc=&page_redirect=/")
  
  #login
  remDr$findElement(using = "id", value = "login_name")$sendKeysToElement(list(master$email))
  remDr$findElement(using = "id", value = "login_password")$sendKeysToElement(list(master$password))
  remDr$findElements("class name", "btn")[[1]]$clickElement()
  
  #go to athletes page
  remDr$navigate("https://log.finalsurge.com/CoachAthletes.cshtml")
  
  for (i in 1:length(accounts$email)) { #for all accounts
    
    print(paste("unlinking account:", accounts$email[i]))
  
    #save athlete table
    page <- remDr$getPageSource()
    table <- page[[1]] %>%
      read_html() %>%
      html_nodes('table') %>% 
      .[[1]] %>%
      html_table() %>%
      as.data.frame(.) 
    
    #get email to athlete i
    email <- accounts$email[i]
    
    #find which entry in (updated!) table corresponds to this email
    x <- which(table$Email==email)
    
    #if there is a correspondence...
    if(length(x)>0) {
      #edit account with this email
      #remDr$findElements("class", "icon-pencil")[[x]]$highlightElement()
      remDr$findElements("class", "icon-pencil")[[x]]$clickElement()
      
      #delete from coaching account
      #remDr$findElement("class", "icon-trash")$highlightElement()
      remDr$findElement("class", "icon-trash")$clickElement()
      Sys.sleep(1)
      #confirm
      #remDr$findElement(using = 'link text','OK')$highlightElement()
      remDr$findElement(using = 'link text','OK')$clickElement()
    }
  }

}

5.2 delete accounts

We may also delete the accounts.

if(FINISHED==TRUE){
  
  for (i in 1:n) {
    
    print(paste("deleting account:", accounts$email[i]))
    
    #navigate to login page
    remDr$navigate("https://log.finalsurge.com/")
    
    #login
    remDr$findElement(using = "id", value = "login_name")$sendKeysToElement(list(accounts$email[i]))
    remDr$findElement(using = "id", value = "login_password")$sendKeysToElement(list(accounts$paswoord[i]))
    remDr$findElements("class name", "btn")[[1]]$clickElement()
    
    #profile settings
    remDr$navigate("https://log.finalsurge.com/UserProfile.cshtml?edit=p#profile")
    #delete
    remDr$findElement("id","del-user")$clickElement()
    #accept
    remDr$findElements("class", "btn")[[4]]$clickElement()
  }
}

make sure to end a session by terminating the process:

pid <- rD$server$process$get_pid()
system(paste0("Taskkill /F /T" ," /PID ", pid))

---

Copyright © 2023 Rob Franken