R中的交互式功能命令

Question

我对交互式Rmd有疑问，我甚至不确定这是否可能。因此，我制作了一个函数，它需要4个命令输入才能运行。我想知道我是否可以制作一个程序/行，让用户在Rmd(html(中输入输入。

例如，如果要运行"run_function"函数的行是

run_function(1,2,"3",4) 

我想知道我是否可以在Rmd上配置smt来提示用户输入每个变量

Enter var 1: x
Enter var 2: y
Enter var 3: "5"
Enter var 4: f
to ran the following command automatically 
-> run_function(x,t,"5",f)

这可能吗？在R中，不使用python？

我正在附加我的功能和exp输出

run_diff<-function(model_in, contr_in,graph_title,txt_title){
t<-diff(df_filt,model_in,contr_in)
write.table(t, file = txt_title, row.names = F, sep = "t", quote = F)
print(head(t,10))
DEsites_count<-as.integer(length(which(t$adj.P.Val < 0.05)))
string<-"Number of Differentially Editing sites are"
print(paste(string, DEsites_count))
g<- ggplot(t, aes(x=logFC, y=-log10(P.Value))) + 
theme_minimal() +geom_jitter(aes(color=AveExpr), alpha=0.3, size = 2)+
theme(text = element_text(size = 10))+
ggtitle(graph_title)
print(g)
}
run_diff(model_2,"contr_1", "Model_2, contr1","model_2_contr_1_toptable.txt")
-> produces a table, a graph, and saves a txt file

Answer 1

如果命令在R.Rmd中执行，则不可能呈现静态html文件。你可以选择在Rmd中使用JavaScript来做我认为你打算做的事情，或者创建一个Rshing markdown应用程序。后者取决于客户端的机器上有R，或者应用程序托管在shinyserver上。当针织执行R代码并翻译或捕获html、JS和CSS中的输出时，需要注意Rmd。