def set_minus_cut(start_point,pav_df_file_name,result_path):
R_code_set_minus_cut='''
Cut=function(start_point,pav_df_file_name,result_path){
require(readxl)
require(WriteXLS)
require(tidyverse)
pav_df=read_xlsx(pav_df_file_name)
gene_is=pav_df %>%
filter((!!sym(start_point))==1) %>%
# filter(`70-15`)==1
select("protein_id")
minus_part=pav_df %>%
filter((!!sym(start_point))==1) %>%
column_to_rownames("protein_id")
# pav_df_colsum=colSums(minus_part_num)
# pav_df_colsum_sort=sort(pav_df_colsum)
add_part=pav_df %>%
filter((!!sym(start_point))==0) %>%
column_to_rownames("protein_id")
# add_part=add_part %>%
# column_to_rownames(pav_df_raw$...2)
add_part_num=sapply(add_part[2:157], function(x) as.numeric(x))
pav_df_colsum=colSums(add_part_num)
pav_df_colsum_sort=sort(pav_df_colsum)
write.table(attributes(pav_df_colsum_sort),paste(result_path,sprintf("set_minus_sort_protein_id_%s.txt", start_point),sep = ""),append = F,quote = F,row.names = F,col.names = F)
write.table(pav_df_colsum_sort,paste(result_path,sprintf("set_minus_sort_protein_id_num_%s.txt", start_point),sep = ""),append = F,quote = F,row.names = T,col.names = F)
WriteXLS::WriteXLS(
minus_part,
paste(result_path,sprintf("set_minus_minus_%s.xlsx", start_point),sep = ""),
col.names = T,
row.names = T
)
WriteXLS::WriteXLS(
add_part,
paste(result_path,sprintf("set_minus_add_%s.xlsx", start_point),sep = ""),
col.names = T,
row.names = T
)
write.table(gene_is,paste(result_path,sprintf("set_minus_gene_id_%s.txt", start_point),sep = ""),append = F,quote = F,row.names = F,col.names = F)
}
'''
R_set_minus_cut = SignatureTranslatedAnonymousPackage(R_code_set_minus_cut, "R_set_minus_cut")
R_set_minus_cut.Cut(start_point,str(pav_df_file_name),result_path)
