convert_var_to_ascii() in R/utils.R twice

[sarabodach]

sdtmchecks/R/utils.R

Lines 330 to 363 in a4ebf93

	#' Remove non-ASCII characters from reported term in order
	#' for Pandoc to create PDF file
	#'
	#'
	#' @param df dataframe
	#' @param var variable with non-ASCII characters
	#'
	#' @return dataframe
	#' @export
	#' @keywords internal
	#'
	#' @examples
	#'
	#' df <- data.frame(
	#' var = c("test", "teäst"),
	#' stringsAsFactors = FALSE
	#' )
	#'
	#' df <- convert_var_to_ascii(df, 'var')
	#'
	#' df <- data.frame(
	#' usubjid = 1:2,
	#' var = c("test", "teästõ"),
	#' stringsAsFactors = FALSE
	#' )
	#'
	#' df <- convert_var_to_ascii(df, 'var')
	convert_var_to_ascii <- function(df, var){
	Encoding(df[[var]]) <- "latin1"
	df[[var]] <- iconv(df[[var]], "latin1", "ASCII", sub="")
	return(df)
	}

-Function code is the same
-Only minor difference in the examples shown in the header:
Line 253, 261: convert_var_to_ascii(df, 'var')
Line 348, 356: df <- convert_var_to_ascii(df, 'var')