Icon

kn_​example_​r_​docx_​import_​table2

Read tables from Word documents (.docx) and import them into KNIME.
https://forum.knime.com/t/how-to-import-tables-from-docx-documents-via-r-snippet/19284/36?u=mlauber71 Read tables from Word documents (.docx) and import them into KNIME.In this example we have a changing table structure which is captured by Loop End workpath_r <- knime.flow.in[["context.workflow.absolute-path"]]workspace_name <- paste0(workpath_r, "/workspace_r.RData")# construct name for .RDS filedataobject_name <- paste0(workpath_r, "/datalist_r_", knime.flow.in[["File name"]], ".rds")setwd(workpath_r) # Set work directorylibrary(docxtractr)v_documnet_to_read <- c(knime.flow.in[["Location"]])real_world <- read_docx(v_documnet_to_read)docx_tbl_count(real_world)tbls <- docx_extract_all_tbls(real_world)no_tbls <- length(tbls)docx_describe_tbls(real_world)docx_extract_all_tbls(real_world, guess_header = TRUE, preserve = FALSE, trim = TRUE)# https://stackoverflow.com/questions/29402528/append-data-frames-together-in-a-for-loop/29419402datalist = list()for (i in 1:no_tbls) { # ... make some data df <- docx_extract_tbl(real_world, i, header=TRUE) df$document <- knime.flow.in[["File name"]] # add the document name df$table_no <- i # maybe you want to keep track of which iteration/table produced it? datalist[[i]] <- df # add it to your list}# save and load the working environment# save.image(workspace_name)# load(workspace_name)saveRDS(datalist, dataobject_name)# big_data = do.call(rbind, datalist)knime.out <- data.frame("no_tables"=no_tbls ) workpath_r <- knime.flow.in[["context.workflow.absolute-path"]]# construct name for .RDS filedataobject_name <- paste0(workpath_r, "/datalist_r_",knime.flow.in[["File name"]], ".rds")# workspace_name <- paste0(workpath_r, "/workspace_r.RData")# load(workspace_name)datalist <- readRDS(dataobject_name)v_no_to_fetch <- knime.in$"v_no_to_fetch"knime.out <- as.data.frame(datalist[[v_no_to_fetch]]) import alltables into a tibbleand store them as.RDS fileSTARTENDcollect structurefetch tablefrom tibble objectv_no_to_fetchiterate the document noto fetchlist *.docx files from directory_datav_path_docx_filesOUTER LoopStartOUTER LoopEnd R Source (Table) collect meta data Table Rowto Variable Counting Loop Start Loop End R Snippet Math Formula List Files Java EditVariable (simple) Table Row ToVariable Loop Start URL to File Path Loop End https://forum.knime.com/t/how-to-import-tables-from-docx-documents-via-r-snippet/19284/36?u=mlauber71 Read tables from Word documents (.docx) and import them into KNIME.In this example we have a changing table structure which is captured by Loop End workpath_r <- knime.flow.in[["context.workflow.absolute-path"]]workspace_name <- paste0(workpath_r, "/workspace_r.RData")# construct name for .RDS filedataobject_name <- paste0(workpath_r, "/datalist_r_", knime.flow.in[["File name"]], ".rds")setwd(workpath_r) # Set work directorylibrary(docxtractr)v_documnet_to_read <- c(knime.flow.in[["Location"]])real_world <- read_docx(v_documnet_to_read)docx_tbl_count(real_world)tbls <- docx_extract_all_tbls(real_world)no_tbls <- length(tbls)docx_describe_tbls(real_world)docx_extract_all_tbls(real_world, guess_header = TRUE, preserve = FALSE, trim = TRUE)# https://stackoverflow.com/questions/29402528/append-data-frames-together-in-a-for-loop/29419402datalist = list()for (i in 1:no_tbls) { # ... make some data df <- docx_extract_tbl(real_world, i, header=TRUE) df$document <- knime.flow.in[["File name"]] # add the document name df$table_no <- i # maybe you want to keep track of which iteration/table produced it? datalist[[i]] <- df # add it to your list}# save and load the working environment# save.image(workspace_name)# load(workspace_name)saveRDS(datalist, dataobject_name)# big_data = do.call(rbind, datalist)knime.out <- data.frame("no_tables"=no_tbls ) workpath_r <- knime.flow.in[["context.workflow.absolute-path"]]# construct name for .RDS filedataobject_name <- paste0(workpath_r, "/datalist_r_",knime.flow.in[["File name"]], ".rds")# workspace_name <- paste0(workpath_r, "/workspace_r.RData")# load(workspace_name)datalist <- readRDS(dataobject_name)v_no_to_fetch <- knime.in$"v_no_to_fetch"knime.out <- as.data.frame(datalist[[v_no_to_fetch]]) import alltables into a tibbleand store them as.RDS fileSTARTENDcollect structurefetch tablefrom tibble objectv_no_to_fetchiterate the document noto fetchlist *.docx files from directory_datav_path_docx_filesOUTER LoopStartOUTER LoopEnd R Source (Table) collect meta data Table Rowto Variable Counting Loop Start Loop End R Snippet Math Formula List Files Java EditVariable (simple) Table Row ToVariable Loop Start URL to File Path Loop End

Nodes

Extensions

Links

Download

To use this workflow in KNIME, download it from the below URL and open it in KNIME:

Download Workflow
Created by: A9699459
Created at: 2019-11-06
On NodePit since: 2019-11-17
Last update: 2024-04-18
Created with KNIME version: v4.0.2
Tags: rknimeimportdocxwordofficerds

Deploy, schedule, execute, and monitor your KNIME workflows locally, in the cloud or on-premises – with our brand new NodePit Runner.

Try NodePit Runner!