minimize data for smaller screen shot

Author: harsha0476

quarto/catalog/fda-table_13/index.qmd

@@ -42,7 +42,7 @@ data <- adae |>
     SAFFL == "Y",
     # narrow OCMQ
     OCMQ01SC == "NARROW"
-  )
+  ) %>% sample_frac(0.5) #reducing 50 percent of records for table visual 
 ```
 
 ## Build ARD

quarto/catalog/fda-table_13/result.png

@@ -27,7 +27,8 @@ adsl <- adsl |>
   filter(SAFFL == "Y") # safety population
 
 data <- adae |>
-  filter(SAFFL == "Y") # safety population
+  filter(SAFFL == "Y")  %>% # safety population
+  sample_frac(0.5) #reducing 50 percent of records for table visual 
 ```
 
 ## Build ARD