write_sheet()错误:不知道如何从'data.frame‘类创建`CellData`的实例

# 假设我们有一个名为df的数据框
df <- data.frame(Name = c("John", "Jane", "Mike"),
                 Age = c(25, 30, 35),
                 Salary = c(50000, 60000, 70000))

# 将数据框中的列转换为字符型、数值型或整型
df$Name <- as.character(df$Name)
df$Age <- as.integer(df$Age)
df$Salary <- as.numeric(df$Salary)

# 创建CellData的实例并插入转换后的数据
name_cell <- CellData$new(data = df$Name)
age_cell <- CellData$new(data = df$Age)
salary_cell <- CellData$new(data = df$Salary)

# 将CellData对象传递给write_sheet()函数，将数据写入电子表格
write_sheet(name_cell, sheet = "Sheet1", start_row = 1, start_col = 1)
write_sheet(age_cell, sheet = "Sheet1", start_row = 1, start_col = 2)
write_sheet(salary_cell, sheet = "Sheet1", start_row = 1, start_col = 3)