search for: str_squish

...as las respuestas en una misma variable y cada respuesta está separada por ",". Así está [image: image.png] Hago esto para poder separar en columnas las distintas respuestas: *mult_bas_dat<-mult_bas_dat %>% separate_rows(bases, sep = ",") %>% mutate(basedatos = str_squish(bases)) %>% select(basedatos)* ## múltiple a columnas ## *mult_bas_dat_final<-mult_bas_dat %>% separate_rows(basedatos, sep = ",") %>% mutate(basedatos = str_squish(basedatos), # Para quitar los espacios en blanco indeseados id = 1) %>% spread(key = basedat...

...nts/RTextualAnalysis/data/pdfs") library(pdftools) library(dplyr) convertpdf2txt <- function(dirpath){ files <- list.files(dirpath, full.names = T) x <- sapply(files, function(x){ x <- pdftools::pdf_text(x) %>% paste0(collapse = " ") %>% stringr::str_squish() return(x) }) } # apply function txts <- convertpdf2txt(here::here("data", "pdf/")) # add names to txt files names(txts) <- paste0(here::here("data","pdftext"), 1:length(txts), sep = "") [[alternative HTML version deleted]]

...arada por ",". > > Así está > > [image: image.png] > > Hago esto para poder separar en columnas las distintas respuestas: > > > > > > *mult_bas_dat<-mult_bas_dat %>%  separate_rows(bases, sep = ",") %>% > mutate(basedatos = str_squish(bases)) %>%  select(basedatos)* > ## múltiple a columnas ## > > > > > > *mult_bas_dat_final<-mult_bas_dat %>%  separate_rows(basedatos, sep = ",") > %>%  mutate(basedatos = str_squish(basedatos), # Para quitar los espacios > en blanco indeseados...

...as las respuestas en una misma variable y cada respuesta está separada por ",". Así está [image: image.png] Hago esto para poder separar en columnas las distintas respuestas: *mult_bas_dat<-mult_bas_dat %>% separate_rows(bases, sep = ",") %>% mutate(basedatos = str_squish(bases)) %>% select(basedatos)* ## múltiple a columnas ## *mult_bas_dat_final<-mult_bas_dat %>% separate_rows(basedatos, sep = ",") %>% mutate(basedatos = str_squish(basedatos), # Para quitar los espacios en blanco indeseados id = 1) %>% spread(key = basedat...

...irpath){ files <- list.files(dirpath, pattern = "Consoli.*\\.pdf$", full.names = TRUE) files <- chartr("\\", "/", files) x <- lapply(files, function(x){ pdftools::pdf_text(x) %>% paste0(collapse = " ") %>% stringr::str_squish() }) new_names <- tools::file_path_sans_ext(files) new_names <- paste(new_names, "txt", sep = ".") setNames(x, new_names) } # apply function # note that my test files are in "~/Temp" txts <- convertpdf2txt(here::here("~", "Temp&quot...