Skip to contents

This function writes the csv file of the labelled twilight which can be read with TRAINSET https://trainset.raphaelnussbaumer.com/.

Usage

twilight_label_write(
  tag,
  file = glue::glue("./data/twilight-label/{tag$param$id}.csv"),
  quiet = FALSE
)

Arguments

tag

a GeoPressureR tag object

file

Name of the twilight label file to be saved.

quiet

logical to hide messages

Value

None

See also

Examples

setwd(system.file("extdata", package = "GeoPressureR"))
tag <- tag_create("18LX", quiet = TRUE) |>
  tag_label(quiet = TRUE) |>
  twilight_create()

label_file <- twilight_label_write(tag)
#>  ./data/twilight-label/18LX.csv written successfully.

str(read.csv(label_file))
#> 'data.frame':	28 obs. of  4 variables:
#>  $ series   : chr  "Set" "Rise" "Set" "Rise" ...
#>  $ timestamp: chr  "2017-07-27T03:05:00Z" "2017-07-27T18:30:00Z" "2017-07-28T03:20:00Z" "2017-07-28T18:45:00Z" ...
#>  $ value    : num  905 390 920 405 900 ...
#>  $ label    : int  1 1 1 1 1 1 1 1 1 1 ...