R Markdown
library(DT)
## Warning: package 'DT' was built under R version 3.3.3
# DT::renderDataTable(head(all))
names(all)
## [1] "nct_id"
## [2] "nlm_download_date_description"
## [3] "first_received_date"
## [4] "last_changed_date"
## [5] "first_received_results_date"
## [6] "received_results_disposit_date"
## [7] "start_month_year"
## [8] "start_date_type"
## [9] "start_date"
## [10] "verification_month_year"
## [11] "verification_date"
## [12] "completion_month_year"
## [13] "completion_date_type"
## [14] "completion_date"
## [15] "primary_completion_month_year"
## [16] "primary_completion_date_type"
## [17] "primary_completion_date"
## [18] "target_duration"
## [19] "study_type"
## [20] "acronym"
## [21] "baseline_population"
## [22] "brief_title"
## [23] "official_title"
## [24] "overall_status"
## [25] "last_known_status"
## [26] "phase"
## [27] "enrollment"
## [28] "enrollment_type"
## [29] "source"
## [30] "limitations_and_caveats"
## [31] "number_of_arms"
## [32] "number_of_groups"
## [33] "why_stopped"
## [34] "has_expanded_access"
## [35] "expanded_access_type_individual"
## [36] "expanded_access_type_intermediate"
## [37] "expanded_access_type_treatment"
## [38] "has_dmc"
## [39] "is_fda_regulated_drug"
## [40] "is_fda_regulated_device"
## [41] "is_unapproved_device"
## [42] "is_ppsd"
## [43] "is_us_export"
## [44] "biospec_retention"
## [45] "biospec_description"
## [46] "plan_to_share_ipd"
## [47] "plan_to_share_ipd_description"
## [48] "created_at"
## [49] "updated_at"
## [50] "is_US_flg"
table(all$plan_to_share_ipd)
##
## No Undecided Yes
## 25444 9925 6248
all$url <- paste0("<a href='",sprintf('https://clinicaltrials.gov/ct2/show/study/%s',all$nct),"'>",all$nct,"</a>")
allsub<-all %>% filter(plan_to_share_ipd=='Yes') %>% #select(nct_id,plan_to_share_ipd,plan_to_share_ipd_description)
select(url,plan_to_share_ipd_description)
datatable(allsub,escape = F)
## Warning in instance$preRenderHook(instance): It seems your data is too
## big for client-side DataTables. You may consider server-side processing:
## http://rstudio.github.io/DT/server.html