R Script Str_Pad не экспортируется в текстовый файл - PullRequest
Новая
       13

R Script Str_Pad не экспортируется в текстовый файл

0 голосов
/ 17 апреля 2020

Я унаследовал рабочий процесс для экспорта запроса SQL в текстовый файл с разделителями. Однако я не могу заставить str_pad работать должным образом. Ни один из операторов str_pad не копируется в файл экспорта. Этот же rscript хорошо работал в прошлом. Что бы это могло быть? Я довольно плохо знаком с R, поэтому, пожалуйста, дайте мне знать, если мне нужно предоставить больше информации. 

> ### Pad needed fields with zeroes (or 9's) as needed
> # PA$Plan_Authorization_Number <- str_pad(PA$Plan_Authorization_Number, width = 30, 'right')
> # PA$Plan_Authorization_Line_Number <- str_pad(PA$Plan_Authorization_Line_Number, width = 2, 'left', pad = '0')
> # PA$Taxonomy <- str_pad(PA$Taxonomy, width = 10, 'right')
> # PA$Service_Code <- str_pad(PA$Service_Code, width = 20, 'right')
> # PA$Plan_Authorization_Status <- str_pad(PA$Plan_Authorization_Status, width = 1, 'right')
> # PA$Requested_Units <- str_pad(as.character(PA$Requested_Units), width = 4, 'left', pad = '0')
> # PA$Auth_Units <- str_pad(as.character(PA$Auth_Units), width = 4, 'left', pad = '0')
> # PA$Auth_Amount <- '0000000.00'
> # PA$Auth_Received_Date <- str_pad(PA$Auth_Received_Date, width = 8, 'right')
> # PA$Auth_Notice_Date <- str_pad(PA$Auth_Notice_Date, width = 8, 'right')
> # PA$Auth_Denied_Reason <- str_pad(PA$Auth_Denied_Reason, width = 2, 'right')
> # PA$Documentation_Received_Date <- str_pad(PA$Documentation_Received_Date, width = 8, 'right')
> 
> 
> ### Pad needed fields with whitespace as needed
> # PA$Plan_Authorization_Line_Number <- replace_na(PA$Plan_Authorization_Line_Number, '  ')
> # PA$Provider_NPI <- replace_na(PA$Provider_NPI, '          ')
> # PA$Service_Code <- replace_na(PA$Service_Code,'                    ')
> # #PA$Taxonomy <- replace_na(PA$Taxonomy,'          ')
> # PA$Referring_Provider_NPI <- replace_na(PA$Referring_Provider_NPI, '          ')
> # PA$ModCode <- replace_na(PA$ModCode, '  ')
> # PA$ModCode2 <- replace_na(PA$ModCode2, '  ')
> # PA$ModCode3 <- replace_na(PA$ModCode3, '  ')
> # PA$ModCode4 <- replace_na(PA$ModCode4, '  ')
> # PA$Plan_Authorization_Status <- replace_na(PA$Plan_Authorization_Status, ' ')
> # PA$Requested_Units <- replace_na(PA$Requested_Units, '    ')
> # PA$Auth_Received_Date <- replace_na(PA$Auth_Received_Date, '        ')
> # PA$Auth_Notice_Date <- replace_na(PA$Auth_Notice_Date, '        ')
> # PA$Auth_Units <- replace_na(PA$Auth_Units, '    ')
> # PA$Auth_Denied_Reason <- replace_na(PA$Auth_Denied_Reason, '  ')
> # PA$Documentation_Received_Date <- replace_na(PA$Documentation_Received_Date, '        ')
> # PA$Tax_Identification_Number <- replace_na(PA$Tax_Identification_Number, '          ')
> # PA$Auth_Notice_Date <- replace_na(PA$Auth_Notice_Date, '99999999')
> # PA$Documentation_Received_Date <- replace_na(PA$Documentation_Received_Date, '        ')
> 
> 
> ## Generate txt file with delimiters
> write.table(PA, file = 'PATH/file.txt', sep = '^', quote = FALSE, row.names = FALSE, col.names = FALSE, na = '')
...