## Global Variables

# force decimal numbers, not scientific ones
options(scipen=999)

# Names for Categories
Names <- as.list(c("Number visits", "Users", "Permanent staff", "Permanent staff percentages", "Volunteer staff", "Opening hours per week", "Budget", "Media budget", "Collection physical", "Collection digital", "Seats", "Number events", "Number of loans", "Usage of ebooks", "Visitors events", "Turnover", "Budget per Inhabitant", "Percent Active Users"))
Names_dt <- as.list(c("Besuche", "Aktive Nutzer*innen", "Personal fest (Personen)", "Personal fest (Prozente)", "Personal Ehrenamt (Personen)", "Stunden offen pro Woche", "Etat (ganz)", "Medienetat", "Bestand (physisch)", "Bestand (digital)", "Arbeitsplätze", "Anzahl Veranstaltungen", "Ausleihe", "Nutzung E-Books", "Besuche Veranstaltungen", "Umsatz physische Medien", "Etat pro Einwohner*in", "Prozent aktive Nutzer*innen / Bevölkerung"))
