chore: ls() -> names()

Author: averissimo

R/tm_a_pca.R

@@ -64,7 +64,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_a_regression.R

@@ -97,7 +97,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_data_table.R

@@ -67,7 +67,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,
@@ -194,7 +194,7 @@ srv_page_data_table <- function(id,
     if_filtered <- reactive(as.logical(input$if_filtered))
     if_distinct <- reactive(as.logical(input$if_distinct))
 
-    datanames <- isolate(ls(data()))
+    datanames <- isolate(names(data()))
     datanames <- Filter(function(name) {
       is.data.frame(isolate(data())[[name]])
     }, datanames)

R/tm_front_page.R

@@ -28,7 +28,7 @@
 #'   ADSL <- rADSL
 #'   attr(ADSL, "metadata") <- list("Author" = "NEST team", "data_source" = "synthetic data")
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' table_1 <- data.frame(Info = c("A", "B"), Text = c("A", "B"))
 #' table_2 <- data.frame(`Column 1` = c("C", "D"), `Column 2` = c(5.5, 6.6), `Column 3` = c("A", "B"))
@@ -168,7 +168,7 @@ srv_front_page <- function(id, data, tables, show_metadata) {
       )
 
       metadata_data_frame <- reactive({
-        datanames <- ls(data())
+        datanames <- names(data())
         convert_metadata_to_dataframe(
           lapply(datanames, function(dataname) attr(data()[[dataname]], "metadata")),
           datanames

R/tm_g_association.R

@@ -80,7 +80,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_g_bivariate.R

@@ -115,7 +115,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_g_distribution.R

@@ -67,7 +67,7 @@
 #' data <- within(data, {
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' vars1 <- choices_selected(
 #'   variable_choices(data[["ADSL"]], c("ARM", "COUNTRY", "SEX")),

R/tm_g_response.R

@@ -97,7 +97,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_g_scatterplot.R

@@ -132,7 +132,7 @@
 #'   require(nestcolor)
 #'   ADSL <- rADSL
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,

R/tm_g_scatterplotmatrix.R

@@ -116,7 +116,7 @@
 #'   ADSL <- rADSL
 #'   ADRS <- rADRS
 #' })
-#' join_keys(data) <- default_cdisc_join_keys[ls(data)]
+#' join_keys(data) <- default_cdisc_join_keys[names(data)]
 #'
 #' app <- init(
 #'   data = data,