如何解决使用反应函数在rshiny中的数据处理和列名中出现问题
我现在稍微更改了代码,但仍然遇到一些错误,在数据处理过程中出现了一些或其他错误。我正在上传一个CSV文件,并希望进行一些数据处理,在此过程中我遇到了错误。以下是当前示例代码
ui <- dashboardPage(
dashboardHeader(title = "Inventory Management",titleWidth = 800),dashboardSidebar(sidebarMenu(menuItem("data",tabName = "Page1",icon=icon("tachometer")),menuItem("Analysis",tabName = "Page2",icon=icon("tachometer")))),dashboardBody(
tabItems(
tabItem("Page1",fluidRow(column(3,fileInput("file1","Previous Month close Sales office"))),box(dataTableOutput("tabel1"))))),tabItem("Page2",p("Analysis Outcome"),box(dataTableOutput("state_lst1")))))
))
)
server <- function(input,output){
data_uploaded1 <- reactive({
file1 <- input$file1
if(is.null(file1)){return()}
read.table(file=file1$datapath,sep=",",header = T,stringsAsFactors = T)
})
output$tabel1 <- renderDT(data_uploaded1())
output$state_lst1 <- reactive ({
tabel2 <- renderDT(data_uploaded1())
Prv_mnth_so2 <- tabel2()
#if(nrow(Prv_mnth_so2) >0){
#if(is.null(Prv_mnth_so2)){return()}
colnames(Prv_mnth_so2) <- c("GST_ward","Category","order_and_section","combo","Product_Number","Orders_Status","Option_Number","SRN","Quantity_On_Hand","Invoice_Or_Billing_Id","Lc_Amount","Clearance_date")
#}
Prv_mnth_so2$state <- data.frame(sub("\\-.*","",Prv_mnth_so2$"GST_ward"))
state_lst <- data.frame(unique(Prv_mnth_so2$state))
state_lst
}
)
}
shinyApp(ui,server)
我现在正在关注错误
Warning: Error in tempVarsPromiseDomain: argument "name" is missing,with no default
[No stack trace available]*
我正在按以下格式上传文件 标题
'GST ward' 'Category' 'Order & Section' 'Combo' 'Product_Number' 'Orders Status' 'Option_Number' 'Shipment Reference number' 'Quantity_On_Hand' 'Invoice_Or_Billing_Id' 'Lc_Amount' 'Received month
值
Assam-18 ESC J9K619328319 J9K6193283193C743PC 3C743PC Not invoiced ACJ 7SCA47333373 150 CR4786386A 108 JAN20
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。