diff --git a/docs/index.Rmd b/docs/index.Rmd index f0f5202..115ec9d 100644 --- a/docs/index.Rmd +++ b/docs/index.Rmd @@ -24,11 +24,13 @@ library(stringr) dat <- readr::read_csv("../data/amyloid_db.csv", col_select = c(, 1:14), col_types = "fcfffffff?cccf") %>% # filter(`Current status` == "Active") %>% - mutate(DOI = paste0("", str_remove(doi, 'https://doi.org/'),""), + mutate(DOI = paste0("", doi %>% + str_remove(., 'https://doi.org/') + %>% str_remove(., 'http://dx.doi.org/'),""), Database = paste0("", Database, ""), `Last updated` = `Last updated` %>% as.Date(., "%d-%m-%Y"),) %>% select("Database", "Focus", "Type of data", "Only amyloids", "Includes experimental conditions", "Usability", - "Includes structural information", "Identifies APRs", "Data sources and links to other db", "Current status", "Last updated", "DOI") %>% + "Includes structural information", "Identifies APRs", "Current status", "Last updated", "Data sources and links to other db", "DOI") %>% arrange(desc(`Last updated`)) @@ -41,8 +43,8 @@ hover_text <- c("Name and link to a database", "Indicates if database contains structural information of proteins and peptides", "Indicates if database identifies amyloidogenic regions of proteins", "The data sources of database and links to other databases", - "Current status of database", "The last update", + "Current status of database", "DOI") @@ -66,7 +68,7 @@ headerCallback <- c( ### Software information ```{r} -datatable(dat, extensions = c('Buttons', 'FixedColumns', 'FixedHeader'), +datatable(dat, extensions = c('Buttons', 'FixedColumns', 'FixedHeader', 'ColReorder', 'KeyTable'), filter = "top", style = "bootstrap", class = "display", rownames = FALSE, escape = FALSE, @@ -76,16 +78,24 @@ datatable(dat, extensions = c('Buttons', 'FixedColumns', 'FixedHeader'), # scrollY = 700, # scrollX = TRUE, scrollCollapse = FALSE, - # fixedHeader = TRUE, # columnDefs = list(list(width = '200px', targets = c(0))), - # fixedColumns = list(leftColumns = 1), + # fixedColumns = list(leftColumns = 1), #FixedColumns filter = list(clear = FALSE, plain = TRUE), + style = "auto", + fillContainer = getOption("DT.fillContainer", NULL), + # fixedHeader = TRUE, #FixedHeader + paging = FALSE, + # scrollY = 300, + scrollCollapse = TRUE, + # fixedHeader = list(header = TRUE, footer = TRUE), #FixedHeader + colReorder = TRUE, #ColReorder + realtime = FALSE, #ColReorder + keys = TRUE, #KeyTable # lengthMenu = list(25, 50, 75, 100, 125, 150), headerCallback = JS(headerCallback))) %>% - formatStyle(c("Database", "Focus", "Type of data", "Includes experimental conditions"), + formatStyle(c( "Focus","Usability", "Includes structural information", "Identifies APRs", "Type of data", "Includes experimental conditions", "Current status"), backgroundColor = styleEqual(c(FALSE, TRUE), c('#ededed', '#d6edff'))) %>% - formatStyle(c("Usability", - "Includes structural information", "Identifies APRs", "Data sources and links to other db", "Current status", "Last updated", "DOI"), + formatStyle(c("Database","Data sources and links to other db", "Last updated", "DOI"), backgroundColor = styleEqual("false", '#ededed', default = '#d6edff')) ``` diff --git a/docs/index.html b/docs/index.html index 280d15f..069c119 100644 --- a/docs/index.html +++ b/docs/index.html @@ -2877,6 +2877,26 @@ * © SpryMedia Ltd - datatables.net/license */ !function(t){var d,a;"function"==typeof define&&define.amd?define(["jquery","datatables.net-bs","datatables.net-fixedheader"],function(e){return t(e,window,document)}):"object"==typeof exports?(d=require("jquery"),a=function(e,n){n.fn.dataTable||require("datatables.net-bs")(e,n),n.fn.dataTable.FixedHeader||require("datatables.net-fixedheader")(e,n)},"undefined"==typeof window?module.exports=function(e,n){return e=e||window,n=n||d(e),a(e,n),t(n,0,e.document)}:(a(window,d),module.exports=t(d,window,window.document))):t(jQuery,window,document)}(function(e,n,t,d){"use strict";return e.fn.dataTable}); + + + + + + @@ -3416,8 +3436,8 @@