y <- system.file("airdas_sample.das", package = "swfscAirDAS")
y.read <- airdas_read(y)
# All return a data frame:
class(y.read[1:10, ])
class(y.read[, 1:10])
y.df <- y.read
y.df[, 1] <- "a"
class(y.df)
y.df <- y.read
y.df$Event <- "a"
class(y.df)
y.df <- y.read
y.df[["Event"]] <- "a"
class(y.df)
Run the code above in your browser using DataLab