Commit26589db

committed

changed cat to message and corrected a last cat that should have been a stop

1 parentcfa335d commit26589dbCopy full SHA for 26589db

File tree

-3

lines changed

-3

lines changed

Lines changed: 3 additions & 3 deletions

Original file line number	Diff line number	Diff line change
`@@ -67,7 +67,7 @@ vms_clean <- function(path_to_data) {`
`67`	`67`	`empty_coordinates<-x\|>`
`68`	`68`	`dplyr::filter(is.na(.data$latitude))\|>`
`69`	`69`	`dplyr::filter(is.na(.data$longitude))`
`70`		`-cat(paste0("Cleaned:", print(nrow(empty_coordinates))," empty rows from data!\n"))`
	`70`	`+message(paste0("Cleaned:", print(nrow(empty_coordinates))," empty rows from data!\n"))`
`71`	`71`	`res`
`72`	`72`	`}elseif (is.data.frame(path_to_data)==TRUE) {`
`73`	`73`	`x<-path_to_data`
`@@ -107,10 +107,10 @@ vms_clean <- function(path_to_data) {`
`107`	`107`	`)\|>`
`108`	`108`	`dplyr::filter(is.na(.data$latitude))\|>`
`109`	`109`	`dplyr::filter(is.na(.data$longitude))`
`110`		`-cat(paste0("Cleaned:", print(nrow(empty_coordinates))," empty rows from data!\n"))`
	`110`	`+message(paste0("Cleaned:", print(nrow(empty_coordinates))," empty rows from data!\n"))`
`111`	`111`	`res`
`112`	`112`	`}else {`
`113`		`-cat("Data must be a path to folder or data.frame object\n")`
	`113`	`+stop("Data must be a path to folder or data.frame object\n")`
`114`	`114`	`}`
`115`	`115`	`)`
`116`	`116`	`}`

Comments

(0)