“… Import data from .json file |
fromJSON("[original file]") |
Separation process |
sep.data <- strsplit(as.character([imported data]$id), split = "#", fixed = TRUE[ [1] ]) |
unlist(sep.data, use.names = T) |
sep.data |
sep.data = as.data.frame(sep.data) |
Variable transformation |
data.frame(lapply(sep.data, "length<-", max(lengths(sep.data)))) |
Extract sanad data from the matan |
function(i){ |
gsub("[\\[\\]]", "", regmatches([transformed data][i,3], gregexpr("(?<=\\[).*? (?=\\])", [transformed data][i,3], perl = T))[ [1] ]) |
} |
Clean hadith narrators data (example for removing personal pronouns) |
data.frame(lapply([extracted data], gsub, pattern="radliyallahuanhu", replacement='')) |
Data formatting |
rotate <- function(x) t(apply(x, 1, rev)) |
rawi. [book name] <- rotate([cleaned data]) |
rawi. |
…”