浏览功能未在Rshiny应用程序中提供输出
我正在建设闪亮的应用程序。下面的代码给出了完美的输出。我觉得commoa或的位置存在一些问题),但我无法理解,由于相同的输出/id,这个问题是可能的,但我已经纠正了这一点,仍然无法解决问题浏览功能未在Rshiny应用程序中提供输出,shiny,shinydashboard,shinyapps,shiny-reactivity,Shiny,Shinydashboard,Shinyapps,Shiny Reactivity,我正在建设闪亮的应用程序。下面的代码给出了完美的输出。我觉得commoa或的位置存在一些问题),但我无法理解,由于相同的输出/id,这个问题是可能的,但我已经纠正了这一点,仍然无法解决问题 dashboardHeader(title = "Inventory Management" , titleWidth = 800) , dashboardSidebar( #sliderInput("bins", "Number of i
dashboardHeader(title = "Inventory Management" , titleWidth = 800)
,
dashboardSidebar(
#sliderInput("bins", "Number of inputs", 1,100,50),
sidebarMenu(
menuItem("data", tabName = "Page1" , icon=icon("tachometer"))
,menuItem("Summary", tabName = "Page2" , icon=icon("tachometer"))
#,menuItem("logic", tabName = "Page3" , icon=icon("tachometer"))
)
)
,dashboardBody(
tabItems(
### Data upload
tabItem("Page1",
fluidRow(
## Previos month's sales office data upload
column(3,fileInput("file1", "Previous Month close Sales office"))
## Previos month's DC data upload
,column(3,fileInput("file2", "Previous Month close DC"))
## Import Credit report upload
,column(3,fileInput("file3", "Import Credit Report"))
## Fusion Stock Outward Report - In upload
,column(3,fileInput("file4", "Fusion Stock Outward Report - In")))
## Display of data
#Display of data from Previos month's sales office
,fluidRow(column(3,box(dataTableOutput("state_lst1")))
# Display of data from Previos month's dc
,column(3,box(dataTableOutput("data_set22")))
# Display of data from Previos month's Import credit
,column(3,box(dataTableOutput("data_set33")))
# Display of data from Fusion stock report - in
,column(3,box(dataTableOutput("data_set44"))))
,br()
## Download of unique states
## states from Prv month'ss Sales office
,fluidRow(column(3,downloadButton("prv_mnt_so", "Download"))
## states from Prv month'ss DC
,column(3,downloadButton("prv_mnt_dc", "Download"))
## states from Import credit report
,column(3,downloadButton("imp_crdt_rpt", "Download"))
## states from Fusion stocl report
,column(3,downloadButton("Fs_stk_rpt_in", "Download")))
,br()
,br()
,br()
#upload data continue.....
,fluidRow(
## Hana Fusion Trade data upload
column(3,fileInput("file5", "Hana Fusion Trade"))
## Fusion Stock Outward Report - Out data upload
,column(3,fileInput("file6", "Fusion Stock Outward Report - Out"))
## Current Month's close Sales office data upload
,column(3,fileInput("file7", "Current Month's close Sales office"))
## Current Month's close DC data upload
,column(3,fileInput("file8", "Current Month's close DC")))
## Display of data
#Display of states from Hana Fusion Trade data
,fluidRow(column(3,box(dataTableOutput("data_set55")))
# Display of states from Fusion Stock Outward Report - Out data upload
,column(3,box(dataTableOutput("data_set66")))
# Display of states from Current Month's close Sales office data
,column(3,box(dataTableOutput("data_set77")))
# Display of states from Current Month's close dc data
,column(3,box(dataTableOutput("data_set88"))))
,br()
## Download of unique states
## states from Hana Fusion Trade
,fluidRow(column(3,downloadButton("hn_fs_tr", "Download"))
## states from Fusion Stock Outward Report - Out data upload
,column(3,downloadButton("Fs_stk_rpt_ot", "Download"))
## states from Current Month's close Sales office data
,column(3,downloadButton("crt_mnt_so", "Download"))
## states from Current Month's close dc data
,column(3,downloadButton("crt_mnt_dc", "Download")))
#,tabItem(tabName = "Page3", p("This is page 3"))
)
,tabItem("Page2"
# , p("Analysis Outcome")
,fluidRow(
box( title = "summary of Previous Month's Sales office", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Prv_mnth_so_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
,box( title = "summary of Previous Month's DC", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Prv_mnth_dc_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
)))
))))```
but when I add another fluidRow i don't get anyoutcome after uploading file. though it doesn's show any error either
```ui <- dashboardPage(
dashboardHeader(title = "Inventory Management" , titleWidth = 800)
,
dashboardSidebar(
#sliderInput("bins", "Number of inputs", 1,100,50),
sidebarMenu(
menuItem("data", tabName = "Page1" , icon=icon("tachometer"))
,menuItem("Summary", tabName = "Page2" , icon=icon("tachometer"))
#,menuItem("logic", tabName = "Page3" , icon=icon("tachometer"))
)
)
,dashboardBody(
tabItems(
### Data upload
tabItem("Page1",
fluidRow(
## Previos month's sales office data upload
column(3,fileInput("file1", "Previous Month close Sales office"))
## Previos month's DC data upload
,column(3,fileInput("file2", "Previous Month close DC"))
## Import Credit report upload
,column(3,fileInput("file3", "Import Credit Report"))
## Fusion Stock Outward Report - In upload
,column(3,fileInput("file4", "Fusion Stock Outward Report - In")))
## Display of data
#Display of data from Previos month's sales office
,fluidRow(column(3,box(dataTableOutput("state_lst1")))
# Display of data from Previos month's dc
,column(3,box(dataTableOutput("data_set22")))
# Display of data from Previos month's Import credit
,column(3,box(dataTableOutput("data_set33")))
# Display of data from Fusion stock report - in
,column(3,box(dataTableOutput("data_set44"))))
,br()
## Download of unique states
## states from Prv month'ss Sales office
,fluidRow(column(3,downloadButton("prv_mnt_so", "Download"))
## states from Prv month'ss DC
,column(3,downloadButton("prv_mnt_dc", "Download"))
## states from Import credit report
,column(3,downloadButton("imp_crdt_rpt", "Download"))
## states from Fusion stocl report
,column(3,downloadButton("Fs_stk_rpt_in", "Download")))
,br()
,br()
,br()
#upload data continue.....
,fluidRow(
## Hana Fusion Trade data upload
column(3,fileInput("file5", "Hana Fusion Trade"))
## Fusion Stock Outward Report - Out data upload
,column(3,fileInput("file6", "Fusion Stock Outward Report - Out"))
## Current Month's close Sales office data upload
,column(3,fileInput("file7", "Current Month's close Sales office"))
## Current Month's close DC data upload
,column(3,fileInput("file8", "Current Month's close DC")))
## Display of data
#Display of states from Hana Fusion Trade data
,fluidRow(column(3,box(dataTableOutput("data_set55")))
# Display of states from Fusion Stock Outward Report - Out data upload
,column(3,box(dataTableOutput("data_set66")))
# Display of states from Current Month's close Sales office data
,column(3,box(dataTableOutput("data_set77")))
# Display of states from Current Month's close dc data
,column(3,box(dataTableOutput("data_set88"))))
,br()
## Download of unique states
## states from Hana Fusion Trade
,fluidRow(column(3,downloadButton("hn_fs_tr", "Download"))
## states from Fusion Stock Outward Report - Out data upload
,column(3,downloadButton("Fs_stk_rpt_ot", "Download"))
## states from Current Month's close Sales office data
,column(3,downloadButton("crt_mnt_so", "Download"))
## states from Current Month's close dc data
,column(3,downloadButton("crt_mnt_dc", "Download")))
#,tabItem(tabName = "Page3", p("This is page 3"))
)
,tabItem("Page2"
# , p("Analysis Outcome")
,fluidRow(
box( title = "summary of Previous Month's Sales office", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Prv_mnth_so_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
,box( title = "summary of Previous Month's DC", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Prv_mnth_dc_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
)))
,fluidRow(
box( title = "summary of imported credit report", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("imp_crdt_rpt"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
,box( title = "summary of Fs_stk_rpt_in", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Fs_stk_rpt_in"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
)
,fluidRow(
box( title = "summary of Hana Fusion Trade", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Hana Fusion Trade"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
,box( title = "summary of Fusion Stock Outward Report - Out", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("Fusion Stock Outward Report - Out"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
)
,fluidRow(box( title = "summary of current Month's DC", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("crt_mnt_so_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
,box( title = "summary of Previous Month's DC", status = "primary", height =
"375",width = "6",solidHeader = T,
column(3,DT::dataTableOutput("crt_mnt_dc_sm"),style = "height:300px; width:600px; overflow-y: scroll;overflow-x: scroll;"
))
)
))))
仪表板标题(title=“库存管理”,titleWidth=800)
,
仪表板侧栏(
#滑块输入(“箱子”,“输入数量”,1100,50),
侧边栏菜单(
菜单项(“数据”,tabName=“Page1”,icon=图标(“转速表”))
,菜单项(“摘要”,tabName=“第2页”,icon=图标(“转速表”))
#,菜单项(“逻辑”,tabName=“第3页”,图标=图标(“转速表”))
)
)
,仪表板主体(
tabItems(
###数据上传
tabItem(“第1页”,
fluidRow(
##上个月的销售办事处数据上传
第(3列,文件输入(“文件1”,“上月关闭销售办事处”))
##上个月的DC数据上传
,第(3列,文件输入(“文件2”,“上月结清DC”))
##进口信用报告上传
,第(3列,文件输入(“文件3”,“进口信用报告”))
##Fusion库存出库报告-入库上传
,第(3栏,文件输入(“文件4”,“融合库存向外报告”))
##数据显示
#显示上个月销售办事处的数据
,fluidRow(第3列,方框(dataTableOutput(“Statelst1”))
#显示来自上个月dc的数据
,第3列,方框(dataTableOutput(“data_set22”))
#显示前一个月的进口信用数据
,第3列,方框(dataTableOutput(“data_set33”))
#显示Fusion库存报告中的数据-输入
,第3列,方框(dataTableOutput(“data_set44”))
,br()
##下载独特的国家
##来自Prv月ss销售办事处的州
,fluidRow(第3列,下载按钮(“下载”))
##来自Prv月ss DC的州
,第3列,下载按钮(“下载”)
##来自进口信用报告的国家
,第3列,下载按钮(“下载”)
##来自Fusion stocl报告的国家
,第3列,下载按钮(“下载”)
,br()
,br()
,br()
#上传数据继续。。。。。
,fluidRow(
##Hana Fusion贸易数据上传
第(3列,文件输入(“文件5”,“Hana融合交易”))
##Fusion库存出库报告-出库数据上传
,第(3列,文件输入(“文件6”,“融合库存向外报告”))
##当月已结售楼处数据上传
,第(3列,文件输入(“文件7”,“当月结束销售办事处”))
##当月已结DC数据上传
,第3列,文件输入(“文件8”,“当月结清DC”))
##数据显示
#显示Hana Fusion交易数据中的状态
,fluidRow(第3列,方框(dataTableOutput(“data_set55”))
#显示Fusion库存向外报告的状态-输出数据上传
,第3列,方框(dataTableOutput(“data_set66”))
#显示当月结束销售办事处数据中的状态
,第3列,方框(dataTableOutput(“data_set77”))
#显示当月结算dc数据的状态
,第3列,方框(dataTableOutput(“data_set88”))
,br()
##下载独特的国家
##来自Hana Fusion贸易的国家
,fluidRow(第3列,下载按钮(“下载”)
##来自Fusion库存向外报告的状态-输出数据上载
,第3列,下载按钮(“下载”)
##来自当月结束销售办事处数据的状态
,列(3,下载按钮(“crt\u mnt\u so”,“下载”))
##来自当月结清dc数据的状态
,第3列,下载按钮(“crt\U mnt\U dc”,“下载”))
#,tabItem(tabName=“Page3”,p(“这是第3页”))
)
,选项卡项(“第2页”
#,p(“分析结果”)
,fluidRow(
框(title=“上月销售办事处汇总”,status=“primary”,高度=
“375”,width=“6”,solidHeader=T,
列(3,DT::dataTableOutput(“Prv_mnth_so_sm”),style=“高度:300px;宽度:600px;溢出-y:滚动;溢出-x:滚动
))
,框(title=“上个月的DC摘要”,status=“primary”,高度=
“375”,width=“6”,solidHeader=T,
列(3,DT::dataTableOutput(“Prv_mnth_dc_sm”),style=“高度:300px;宽度:600px;溢出-y:滚动;溢出-x:滚动
)))
))))```
但当我添加另一个fluidRow时,我在上传文件后并没有得到任何结果。虽然它也没有显示任何错误
```ui我注意到我在第二个Fluidrow中使用了相同的ID,我纠正了它,它工作正常