Fix documentation

NAMESPACE

@@ -30,6 +30,8 @@ export(fixed_to_CE)
 export(fixed_to_b2k)
 export(fixed_to_julian)
 export(year_axis)
+exportClasses(GregorianCalendar)
+exportClasses(JulianCalendar)
 exportClasses(RataDie)
 exportClasses(TimeIntervals)
 exportClasses(TimeScale)

R/AllClasses.R

@@ -43,10 +43,9 @@ NULL
 #' @author N. Frerebeau
 #' @family classes
 #' @family calendar classes
-#' @family gregorian era classes
 #' @docType class
 #' @aliases GregorianCalendar-class
-#' @keywords internal
+#' @exportClass GregorianCalendar
 .GregorianCalendar <- setClass(
   Class = "GregorianCalendar",
   prototype = list(
@@ -67,7 +66,7 @@ NULL
 #' @family calendar classes
 #' @docType class
 #' @aliases JulianCalendar-class
-#' @keywords internal
+#' @exportClass JulianCalendar
 .JulianCalendar <- setClass(
   Class = "JulianCalendar",
   prototype = list(

R/calendar.R

@@ -24,7 +24,7 @@ setMethod(
 )
 
 #' @export
-#' @describeIn gregorian Gregorian BP era.
+#' @rdname calendar
 BP <- function(...) {
   .GregorianCalendar(
     label = tr_("BP"),
@@ -35,7 +35,7 @@ BP <- function(...) {
 }
 
 #' @export
-#' @describeIn gregorian Gregorian b2k era.
+#' @rdname calendar
 b2k <- function(...) {
   .GregorianCalendar(
     label = tr_("b2k"),
@@ -46,7 +46,7 @@ b2k <- function(...) {
 }
 
 #' @export
-#' @describeIn gregorian Gregorian BC era.
+#' @rdname calendar
 BC <- function(...) {
   .GregorianCalendar(
     label = tr_("BC"),
@@ -56,7 +56,7 @@ BC <- function(...) {
 }
 
 #' @export
-#' @describeIn gregorian Gregorian BCE era.
+#' @rdname calendar
 BCE <- function(...) {
   .GregorianCalendar(
     label = tr_("BCE"),
@@ -66,7 +66,7 @@ BCE <- function(...) {
 }
 
 #' @export
-#' @describeIn gregorian Gregorian AD era.
+#' @rdname calendar
 AD <- function(...) {
   .GregorianCalendar(
     label = tr_("AD"),
@@ -75,7 +75,7 @@ AD <- function(...) {
 }
 
 #' @export
-#' @describeIn gregorian Gregorian CE era.
+#' @rdname calendar
 CE <- function(...) {
   .GregorianCalendar(
     label = tr_("CE"),
@@ -84,7 +84,7 @@ CE <- function(...) {
 }
 
 # @export
-# @describeIn gregorian Gregorian AUC era.
+# @rdname calendar
 # AUC <- function(...) {
 #   .GregorianCalendar(
 #     label = tr_("AUC"),
@@ -104,7 +104,10 @@ J <- function(...) {
 }
 
 # Mutators =====================================================================
-calendar_year <- function(object) object@year
+calendar_year <- function(object) {
+  if (is.null(object)) return(NULL)
+  object@year
+}
 
 ## Getters ---------------------------------------------------------------------
 #' @export