R/mobile_screen_names_format.R

In neugelb/neugelbtools: Various small Neugelb tools

mobile_screen_names_format <- function(file,os) {

if (os == 'android') {

  screens <- read_table(file,col_names=FALSE) %>%
    rename(screen_name = 1) %>%
    mutate(screen_name = str_replace(screen_name,fixed('(\"'),' %'),
         screen_name = str_replace(screen_name,fixed('\"'),' +'),
         #replace all characters before
         screen_name = gsub(".* %","",screen_name),
         #replace all characters after
         screen_name = gsub("+ .*","",screen_name))

} else if (os == 'ios') {

  screens <- read_table(file) %>%
    select(2) %>%
    rename(screen_name = 1) %>%
    mutate(screen_name = str_replace(screen_name,fixed('\"'),' %'),
           screen_name = str_replace(screen_name,fixed('\"'),' +'),
           #replace all characters before
           screen_name = gsub(".* %","",screen_name),
           #replace all characters after
           screen_name = gsub("+ .*","",screen_name)) %>%
    filter(!screen_name %in% c('//','static'))

} else {

  stop('Bad input - "os" must be either "android" or "ios". Check and try again.')

}

return(screens)
}