have trouble in uploading my app to shinyapps.io

my head blow up...
I write a simple shinyapp by using DynNom, everything works fine locally; but when it comes to uploading to the shinyapps.io ,it says that:
An error has occurred
the application failed to start (exited with code 1)
Error in value:[[3L]](cond):无法改变工作目录
calls:local...tryCatch<-tryCatchList<-tryCatchOne<-Anonymous
停止执行
and this is my code:

library(shiny)
library(DynNom)
library(survival)
rt=read.table("lung(1).txt",sep="",header=T,row.names=1,check.names=F)
rt$sex<-factor(rt$sex,labels=c("male","female"))
fit1 <-coxph(Surv(time, status) ~age+meal.cal+sex+wt.loss,data = rt)
DynNom(fit1,DNxlab = "Survival probability",
KMtitle="Kaplan-Meier plot",
KMxlab = "Time (Days)",
KMylab = "Survival probability")
DNbuilder(fit1)

My dataset(lung(1)) is put in the same file as app.R, this code runs good locally. Hope to get your help!
P.S.
无法改变工作目录:means "Unable to change working directory"
停止执行:means “stop execution”