Description updates

DESCRIPTION

@@ -11,6 +11,8 @@ Authors@R: c(
 	person("Rho Inc.", role = "cph"))
 Maintainer: Jeremy Wildfire <jeremy_wildfire@rhoworld.com>
 Description: A framework for evaluation of clinical trial safety. Users can interactively explore their data using the 'Shiny' application or create standalone 'htmlwidget' charts. Interactive charts are built using 'd3.js' and 'webcharts.js' 'JavaScript' libraries.
+URL: https://github.com/ASA-DIA-InteractiveSafetyGraphics/safetyGraphics
+BugReports: https://github.com/ASA-DIA-InteractiveSafetyGraphics/safetyGraphics/issues
 Depends: R (>= 3.5)
 License: MIT + file LICENSE
 Encoding: UTF-8

R/checkColumnSetting.R

@@ -32,6 +32,7 @@
 #' #invalid column fails
 #' safetyGraphics:::checkColumnSetting(key=list("filters",3,"value_col"),
 #'                                     settings=testSettings, adlbc) 
+#' @keywords internal
 
 checkColumnSetting <- function(key, settings, data){
   stopifnot(typeof(key)=="list",typeof(settings)=="list")

R/checkFieldSettings.R

@@ -20,7 +20,8 @@
 #' @importFrom stringr str_split
 #' @importFrom magrittr "%>%"
 #' @importFrom purrr map 
-#'
+#' @keywords internal
+
 
 checkFieldSettings <- function(fieldKey, settings, data){
 

R/checkNumericColumns.R

@@ -18,6 +18,7 @@
 #' #fails since groups aren't specified by default
 #' safetyGraphics:::checkSettingProvided(key=list("groups",1,"value_col"),settings=testSettings) 
 #'
+#' @keywords internal
 
 checkNumericColumns <- function(key, settings, data){
   stopifnot(typeof(key)=="list",typeof(settings)=="list")

R/checkSettingProvided.R

@@ -20,7 +20,7 @@
 #' #fails since groups aren't specified by default
 #' safetyGraphics:::checkSettingProvided(key=list("groups",1,"value_col"),
 #'                                       settings=testSettings) 
-#'
+#' @keywords internal
 
 checkSettingProvided <- function(key, settings){
   stopifnot(typeof(key)=="list",typeof(settings)=="list")

R/compare_cols.R

@@ -15,7 +15,7 @@
 #' # match == TRUE
 #' safetyGraphics:::compare_cols(names(adlbc),
 #'                               safetyGraphics:::getRequiredColumns(standard="ADaM")) 
-#' 
+#' @keywords internal
 
 compare_cols<-function(data_cols, standard_cols){
   compare_summary <- list()

R/getRequiredColumns.R

@@ -11,6 +11,7 @@
 #' safetyGraphics:::getRequiredColumns(standard="SDTM")
 #' 
 #' @importFrom rlang .data
+#' @keywords internal
 
 getRequiredColumns<-function(standard,chart="eDish"){
   stopifnot(

R/getSettingKeys.R

@@ -31,7 +31,7 @@
 #'                                 matchLists=TRUE) 
 #' 
 #' @importFrom stringr str_detect 
-#' 
+#' @keywords internal
 
 
 

R/getSettingValue.R

@@ -15,6 +15,7 @@
 #' safetyGraphics:::getSettingValue(list("measure_values","ALP"),testSettings)
 #' safetyGraphics:::getSettingValue(list("NotASetting"),testSettings) #returns NULL
 #' 
+#' @keywords internal
 
 getSettingValue <- function(key,settings){
   stopifnot(typeof(settings)=="list")

R/textKeysToList.R

@@ -11,6 +11,8 @@
 #' 
 #' #list(list("id_col"),list("measure_col","label"))
 #' safetyGraphics:::textKeysToList(c("id_col","measure_col--label")) 
+#' 
+#' @keywords internal
 
 
 textKeysToList <- function(textKeys){