# NOT RUN {
# Set data folder
dataDir <- system.file("extdata", package = "iconr")
# Read a decoration
nds.df <- read_nds(site = "Ibahernando",
decor = "Ibahernando",
dir = dataDir)
eds.df <- read_eds(site = "Ibahernando",
decor = "Ibahernando",
dir = dataDir)
# Extract the subgraph contemporaneous to the node 2
l_dec_df <- contemp_nds(nds.df, eds.df, selected.nd = 2)
## It returns a list of two dataframes, one for nodes and one for edges:
l_dec_df
# }
Run the code above in your browser using DataLab