无法通过R闪亮应用程序保存nls.fit（多行文本）数据

Question

在R Shiny应用程序中使用以下代码时，将创建一个没有nls.fit数据的空文件。但是，通过常规R脚本尝试时，将保存nls.fit数据。我在这里缺少什么？

df <- data.frame(xdata = c(1000.00,300.00,100.00,30.00,10.00,3.00,1.00,0.30,
                           0.10,0.03,0.01,0.00),
                 ydata = c(91.8,95.3,100,123,203,620,1210,1520,1510,1520,1590,
                           1620))

nls.fit <- nls(ydata ~ (ymax*xdata / (ec50 + xdata)) + Ns*xdata + ymin, data=df,
               start=list(ymax=1624.75, ymin = 91.85, ec50 = 3, Ns = 0.2045514))

sink("sink-examp.txt")
nls.fit
sink()

Answer 1

正如@ G.Grothendieck所建议的，以下代码在R Shiny应用程序中用于将nls.fit数据保存为文本文件。

sink("NLS_Fit.txt")
print(nls.fit)
sink()