fix latest CRAN comments

DESCRIPTION

@@ -17,7 +17,7 @@ Description: Analyze repertory grids, a qualitative-quantitative
     2004, ISBN: 978-0-470-09080-0). The package is part of the The package is part of the 
     <https://openrepgrid.org/> project.
 Version: 0.1.15
-Date: 2023-12-26
+Date: 2024-02-18
 Encoding: UTF-8
 URL: https://github.com/markheckmann/OpenRepGrid, http://markheckmann.github.io/OpenRepGrid/
 Imports:
@@ -70,7 +70,7 @@ Collate:
     'utils-import.r'
     'utils.r'
     'zzz.r'
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.0
 NeedsCompilation: no
 Suggests: 
     testthat (>= 2.1.0),

NAMESPACE

@@ -3,6 +3,7 @@
 S3method("[",openrepgridSettings)
 S3method(dim,gridlist)
 S3method(dim,repgrid)
+S3method(drawDetails,gmSplitTextGrob)
 S3method(plot,indexDilemma)
 S3method(print,alignByLoadings)
 S3method(print,constructCor)

NEWS.md

@@ -1,4 +1,4 @@
-# OpenRepGrid (development version)
+# OpenRepGrid (0.1.15)
 
 * rename `ward` method to `ward.D` in `cluster` (fix #36) 
 * `indexDDI` and `indexUncertainty`, two dispersion indexes for dependency (e.g., situation-resource) grids added. Jon Raskin kindly helped with the documentation.

OpenRepGrid.Rproj

@@ -18,5 +18,6 @@ StripTrailingWhitespace: Yes
 BuildType: Package
 PackageUseDevtools: Yes
 PackageInstallArgs: --no-multiarch --with-keep.source
+PackageRoxygenize: rd,collate,namespace
 
 QuitChildProcessesOnExit: Yes

R/gmMain.r

@@ -298,6 +298,8 @@ gmSplitTextGrob <- function(text, x = unit(0.5, "npc"), y = unit(0.5, "npc"), ju
 
 
 # variation to explore
+#' @export
+#' @keywords internal
 drawDetails.gmSplitTextGrob <- function(x, recording) # drawdetails method is called when resizing window
 {
   # str(x);

R/openrepgrid.r

@@ -264,6 +264,5 @@
 #'
 #' @name OpenRepGrid-overview
 #' @keywords package
-#' @docType package
 #'
-NULL
+"_PACKAGE"

R/repgrid-basicops.r

@@ -1400,7 +1400,7 @@ makeRepgrid <- function(args) {
   l <- c(list(x = x), args) # make a new repgrid object
   x <- do.call(e.setElements, l)
   l <- c(list(x = x), args) # make a new repgrid object
-  x <- do.call(c.setConstructs, l)
+  x <- do.call(c_setConstructs, l)
   x <- initRatingArray(x) # initialize rating array
   l <- c(list(x = x), args) # make a new repgrid object
   x[, ] <- matrix(args$scores, ncol = getNoOfElements(x), byrow = T) # to fill matrix rowwise

R/repgrid-constructs.r

@@ -328,8 +328,8 @@ c_makeNewConstruct <- function(x = NULL, l.name = NA, l.preferred = NA, l.emerge
 
 
 
-# internal: c.setConstructs sets constructs by index
-c.setConstructs <- function(x, l.name = NA, l.preferred = NA, l.emerged = NA,
+# internal: c_setConstructs sets constructs by index
+c_setConstructs <- function(x, l.name = NA, l.preferred = NA, l.emerged = NA,
                             r.name = NA, r.preferred = NA, r.emerged = NA,
                             index = NULL, ...) {
   if (!inherits(x, "repgrid")) { # check if x is repgrid object
@@ -355,8 +355,8 @@ c.setConstructs <- function(x, l.name = NA, l.preferred = NA, l.emerged = NA,
   x
 }
 # x <- makeEmptyRepgrid()
-# x <- c.setConstructs(x, l.name=c("construct left 1", "construct left 2"))
-# x <- c.setConstructs(x, l.n=c("construct left 3", "construct left 4"), index=3:4)
+# x <- c_setConstructs(x, l.name=c("construct left 1", "construct left 2"))
+# x <- c_setConstructs(x, l.n=c("construct left 3", "construct left 4"), index=3:4)
 # str(x@constructs, m=3)
 
 
@@ -424,7 +424,7 @@ c_addConstructs <- function(x, l.name = NA, l.preferred = NA, l.emerged = NA,
 }
 ### NOT RUN
 # x <- makeEmptyRepgrid()
-# x <- c.setConstructs(x, l.name=c("construct left 1", "construct left 2"))
+# x <- c_setConstructs(x, l.name=c("construct left 1", "construct left 2"))
 # x <- c_addConstructs(x, l.name="construct added at the end")
 # x <- c_addConstructs(x, l.name="construct left inserted at position 1", pos=1)
 # x <- c_addConstructs(x, l.name="construct right inserted at position 1", pos=1)