diff --git a/r/R/schema.R b/r/R/schema.R
index fa81fc49f6051..c740133633662 100644
--- a/r/R/schema.R
+++ b/r/R/schema.R
@@ -76,7 +76,6 @@
 #'   the metadata is dropped.
 #'
 #' @rdname Schema-class
-#' @name Schema-class
 #' @export
 Schema <- R6Class("Schema",
   inherit = ArrowObject,
@@ -234,7 +233,7 @@ print_schema_fields <- function(s) {
 #'
 #' Create a schema or extract one from an object.
 #'
-#' @seealso [schema-class] for detailed documentation of the Schema R6 object
+#' @seealso [Schema] for detailed documentation of the Schema R6 object
 #' @param ... [fields][field], field name/[data type][data-type] pairs (or a list of), or object from which to extract
 #'  a schema
 #' @examples
diff --git a/r/man/Schema-class.Rd b/r/man/Schema-class.Rd
index 6fe00d719d4cb..32250cdfe7d05 100644
--- a/r/man/Schema-class.Rd
+++ b/r/man/Schema-class.Rd
@@ -1,8 +1,7 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/schema.R
 \docType{class}
-\name{Schema-class}
-\alias{Schema-class}
+\name{Schema}
 \alias{Schema}
 \title{Schema class}
 \description{
diff --git a/r/man/schema.Rd b/r/man/schema.Rd
index ad2978afdcc7c..42532d84b4271 100644
--- a/r/man/schema.Rd
+++ b/r/man/schema.Rd
@@ -35,5 +35,5 @@ tab2 <- arrow_table(df, schema = schema(col1 = int8(), col2 = float32()))
 schema(tab2)
 }
 \seealso{
-\linkS4class{schema} for detailed documentation of the Schema R6 object
+\link{Schema} for detailed documentation of the Schema R6 object
 }