search for: trimws

...quot;, "Imports", "LinkingTo", "Suggests") stopifnot(which %in% which_all) dcf <- read.dcf(file, which) # parse fields raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) # strip stated dependency version deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = TRUE), `[[`, 1L)) # exclude base R pkgs base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) setdiff(deps, base.pkgs) } This allows to easily install all package dependencies just based on D...

...gt;> stopifnot(which %in% which_all) >>> dcf <- read.dcf(file, which) >>> # parse fields >>> raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) >>> # strip stated dependency version >>> deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = >>> TRUE), `[[`, 1L)) >>> # exclude base R pkgs >>> base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) >>> setdiff(deps, base.pkgs) >>> } >&g...

...ll) >>>>> dcf <- read.dcf(file, which) >>>>> # parse fields >>>>> raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) >>>>> # strip stated dependency version >>>>> deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = >>>>> TRUE), `[[`, 1L)) >>>>> # exclude base R pkgs >>>>> base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) >>>>> setdiff(deps,...

...uot;LinkingTo", "Suggests") > stopifnot(which %in% which_all) > dcf <- read.dcf(file, which) > # parse fields > raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) > # strip stated dependency version > deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = > TRUE), `[[`, 1L)) > # exclude base R pkgs > base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) > setdiff(deps, base.pkgs) > } > > This allows to easily install all pa...

...ot;Suggests") >> stopifnot(which %in% which_all) >> dcf <- read.dcf(file, which) >> # parse fields >> raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) >> # strip stated dependency version >> deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = >> TRUE), `[[`, 1L)) >> # exclude base R pkgs >> base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) >> setdiff(deps, base.pkgs) >> } >> >> This all...

...t(which %in% which_all) >>>> dcf <- read.dcf(file, which) >>>> # parse fields >>>> raw.deps <- unlist(strsplit(dcf[!is.na(dcf)], ",", fixed = TRUE)) >>>> # strip stated dependency version >>>> deps <- trimws(sapply(strsplit(trimws(raw.deps), "(", fixed = >>>> TRUE), `[[`, 1L)) >>>> # exclude base R pkgs >>>> base.pkgs <- c("R", rownames(installed.packages(priority = "base"))) >>>> setdiff(deps, base.pkgs) >&...

...ofundos, bien drenados, de textura franco arenosa a franco arcillo arenosa. Fertilidad natural media* Lo que quiero extraer sería: *franco arenosa a franco arcillo arenosa * Al final lo pude realizar de la siguiente manera: df <- read_excel("Agrologia.xlsx") df$Extracted_Text <- trimws(str_extract(df$CARACTERIS, "(?<=textura?(?:[^a-zA-Z]|s)).*?(?=\\.)")) Estoy abierto a cualquier sugerencia o comentario. Muchas gracias. On Fri, 31 Mar 2023 at 12:03, Carlos Ortega <cof en qualityexcellence.es> wrote: > Hola, > > Como no sé lo que querías, veo dos al...

...anco arenosa a > franco arcillo arenosa. Fertilidad natural media* > Lo que quiero extraer sería: *franco arenosa a franco arcillo arenosa * > > Al final lo pude realizar de la siguiente manera: > > df <- read_excel("Agrologia.xlsx") > > df$Extracted_Text <- trimws(str_extract(df$CARACTERIS, > "(?<=textura?(?:[^a-zA-Z]|s)).*?(?=\\.)")) > > Estoy abierto a cualquier sugerencia o comentario. > > Muchas gracias. > > On Fri, 31 Mar 2023 at 12:03, Carlos Ortega <cof en qualityexcellence.es> > wrote: > >> Hola, &g...

...s[[i]])) > # get the data you want, here one line per item to make it clearer > # assume consistency among articles > ttl <- fileDat[[1]] > src <- fileDat[[2]] > dt <- fileDat[[3]] > aut <- fileDat[grepl("Byline:",fileDat)] > aut <- trimws(sub("Byline:","",aut), whitespace = "[\\h\\v]") > pg <- fileDat[grepl("Pg.",fileDat)] > pg <- as.integer(sub(".*Pg. ([[:digit:]]+)","\\1",pg)) > len <- fileDat[grepl("Length:", fileDat)] > len &lt...

...TRUE. By default, keep.parse.data.pkgs is now FALSE, which changes previous behavior and significantly reduces space and time overhead when sources are kept when installing packages. * In rapply(x, ..), x can also be "list-like" and of length >= 2^{31}. * trimws() gets new optional whitespace argument, allowing more extensive definitions of "space", such as including Unicode spaces (as wished in PR#17431). * weighted.mean() no longer coerces the weights to a double/numeric vector, since sum() now handles integer overflow. T...

...TRUE. By default, keep.parse.data.pkgs is now FALSE, which changes previous behavior and significantly reduces space and time overhead when sources are kept when installing packages. * In rapply(x, ..), x can also be "list-like" and of length >= 2^{31}. * trimws() gets new optional whitespace argument, allowing more extensive definitions of "space", such as including Unicode spaces (as wished in PR#17431). * weighted.mean() no longer coerces the weights to a double/numeric vector, since sum() now handles integer overflow. T...

...TRUE. By default, keep.parse.data.pkgs is now FALSE, which changes previous behavior and significantly reduces space and time overhead when sources are kept when installing packages. * In rapply(x, ..), x can also be "list-like" and of length >= 2^{31}. * trimws() gets new optional whitespace argument, allowing more extensive definitions of "space", such as including Unicode spaces (as wished in PR#17431). * weighted.mean() no longer coerces the weights to a double/numeric vector, since sum() now handles integer overflow. T...