Re-document()

Author: jennybc

DESCRIPTION

@@ -51,4 +51,4 @@ Config/testthat/edition: 3
 Encoding: UTF-8
 Language: en-US
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.2.9000

NAMESPACE

@@ -44,11 +44,13 @@ S3method(ctype,SHEETS_CELL)
 S3method(ctype,character)
 S3method(ctype,default)
 S3method(ctype,list)
+S3method(format,googlesheets4_schema_CellData)
 S3method(format,googlesheets4_spreadsheet)
 S3method(format,range_spec)
 S3method(format,sheets_id)
 S3method(patch,default)
 S3method(patch,googlesheets4_schema)
+S3method(print,googlesheets4_schema_CellData)
 S3method(print,googlesheets4_spreadsheet)
 S3method(print,range_spec)
 S3method(print,sheets_id)

R/schema_CellData.R

@@ -136,6 +136,7 @@ as_CellData.POSIXct <- function(x, .na = NULL) {
 
 # Currently (overly) focused on userEnteredValue, because I am thinking about
 # writing. But with a reading focus, one would want to see effectiveValue.
+#' @export
 format.googlesheets4_schema_CellData <- function(x, ...) {
   # TODO: convey something about userEnteredFormat?
   user_entered_value <- pluck(x, "userEnteredValue")
@@ -147,6 +148,7 @@ format.googlesheets4_schema_CellData <- function(x, ...) {
   as.character(glue("{nm}: {fval}"))
 }
 
+#' @export
 print.googlesheets4_schema_CellData <- function(x, ...) {
   header <- as.character(glue("<CellData>"))
   cat(c(header, format(x)), sep = "\n")