Skip to contents

Read MBR4.0 archived data from Nextcloud

Usage

read_mbr4_archived(
  file = "MBR_export_",
  dir = "projects/MBR4.0/Exchange/Rohdaten/Online_export",
  target_dir = tempdir(),
  locale = readr::locale(tz = "CET", decimal_mark = ",", grouping_mark = "."),
  col_types = readr::cols(.default = readr::col_double(), zustand =
    readr::col_character(), meldungen = readr::col_character(), Zeitstempel =
    readr::col_datetime(format = "%d.%m.%Y %H:%M")),
  url = Sys.getenv("NEXTCLOUD_URL"),
  user = Sys.getenv("NEXTCLOUD_USER"),
  pw = Sys.getenv("NEXTCLOUD_USER"),
  dbg = FALSE,
  ...
)

Arguments

file

file name/pattern of tsv file (default: "MBR_export_")

dir

directory on Nextcloud containing file (default: "projects/MBR4.0/Exchange/Rohdaten/Online_export")

target_dir

directory to download data (default: tempdir())

locale

locale (default: locale(tz = "CET", decimal_mark = ",", grouping_mark = "."))

col_types

col_types (default: cols( .default = col_double, zustand = col_character, meldungen = col_character, Zeitstempel = col_datetime(format = " )

url

url of Nextcloud (default: Sys.getenv("NEXTCLOUD_URL"))

user

username of Nextcloud (default: Sys.getenv("NEXTCLOUD_USER"))

pw

password of Nextcloud (default: Sys.getenv("NEXTCLOUD_USER"))

dbg

print debug messages (default: FALSE)

...

additional arguments passed to read_tsv

Value

tibble with imported archived MBR4.0 xlsx data from Nextcloud

Examples

if (FALSE) {
if(check_env_nextcloud()) {
  mbr4_data_archived <- read_mbr4_archived()
  str(mbr4_data_archived)
}
}