wifi list request

[mdsumner]

Wifi request

• request made to UTAS (see code below to create list)
• mobile numbers needed?
• update list for late comers, or new incidents?

R code to process the event brite output into UTAS output.

# (filtered out edu.au, acecrc.org.au, aad.gov.au and duplicates)
library(readxl)
## read attendee list
attend <- read_excel("Wifi-UTAS/report-2017-01-24T1118.xlsx")

## what do we see if remove "utas.edu.au" aad.gov.au, mq.edu.au and acecrc
library(dplyr)
## duplicate column names cause problems
attend <- attend[, -grep("Please specify", names(attend))]
wifi_guests <- attend %>% select(`First Name`, `Surname`, Email) %>%  ##filter(duplicated(Email))
  filter(!grepl("@utas.edu.au", Email)) %>% 
  filter(!grepl("aad.gov.au", Email)) %>% 
  filter(!grepl("mq.edu.au", Email))  %>% 
  filter(!grepl("acecrc", Email)) %>% distinct() %>% as.data.frame()

cols <- c("Name", 	"Username", 	"Mobile Number", 	"Role", "Activation Time", "Expiration Time", "Expire Action")

wifi_list <- wifi_guests %>% transmute(Name = paste(`First Name`, `Surname`), 
                          Username = Email, 
                          `Mobile Number` = "", 
                          Role = "Guest", 
                          `Activation Time` = "2017-01-31 07:30:00", 
                          `Expiration Time` = "2017-02-02 18:00:00", 
                          'Expire Action' = "")

write.csv(wifi_list, "Wifi-UTAS/ResBaz-wifi-guests-2017-01-31_2017-02-02.csv", row.names = FALSE)

[mdsumner]

Mobile numbers not needed.

Latecomers to be added as separate issues (by Mike).

We have the logins for the list as of 2017-01-24.

[DamienIrving]

Thanks, @mdsumner

I'll email you the details of any late registrations that need to be added to list.