hongyuanjia · March 15, 2022 02:08
diff --git a/sch_day_list_from_csv.R b/sch_day_list_from_csv.R
 library(eplusr)

 # construct a fake schedule CSV file with 15 min interval and random values
 interval <- 15
 fake_data <- data.frame(
    time = seq(
        as.POSIXct("2020-03-15 00:15:00"),
        by = "15 mins",
        length.out = 24 * (60 / interval)
    ),
    value = round(runif(24 * (60 / interval)), 2)
 )
 path_csv <- tempfile(fileext = ".csv")
 write.csv(fake_data, path_csv, row.names = FALSE)

 # read the CSV in
 data <- read.csv(path_csv)

 # use the example model distributed with EnergyPlus v8.8 for illustration
 path <- path_eplus_example(8.8, "1ZoneUncontrolled.idf")
 idf <- read_idf(path)

 # add an empty Schedule:Day:List object
 sch <- idf$add(Schedule_Day_List = list("MySchedule", "Fraction", ..4 = interval))[[1]]

 # extract the values of 1-4 fields into a list
 val <- sch$value(1:4)

 # combine the original field values together with your schedule data
 sch$set(c(val, data$val))
	library(eplusr)

	# construct a fake schedule CSV file with 15 min interval and random values
	interval <- 15
	fake_data <- data.frame(
	time = seq(
	as.POSIXct("2020-03-15 00:15:00"),
	by = "15 mins",
	length.out = 24 * (60 / interval)
	),
	value = round(runif(24 * (60 / interval)), 2)
	)
	path_csv <- tempfile(fileext = ".csv")
	write.csv(fake_data, path_csv, row.names = FALSE)

	# read the CSV in
	data <- read.csv(path_csv)

	# use the example model distributed with EnergyPlus v8.8 for illustration
	path <- path_eplus_example(8.8, "1ZoneUncontrolled.idf")
	idf <- read_idf(path)

	# add an empty Schedule:Day:List object
	sch <- idf$add(Schedule_Day_List = list("MySchedule", "Fraction", ..4 = interval))[[1]]

	# extract the values of 1-4 fields into a list
	val <- sch$value(1:4)

	# combine the original field values together with your schedule data
	sch$set(c(val, data$val))