我是Shiny的新手,正尝试使用Excel文件中的数据运行应用程序。似乎应该很简单,但无法弄清楚。还有更复杂的任务(交互式上传文件,指定列,文件位置等)的负载信息 - 但我想要的是一个应用程序,它使用来自加载在后台的单个Excel文件中的数据。将excel文件读入Shiny
之前已经提出过类似问题(Uploading csv file to shinyApps.io和R Shiny read csv file),但我没有从他们那里得到满意的答案。
我把我的excel文件保存在与app.R文件相同的目录下,名为'data'的文件夹中。我读入到我的剧本的server
部分是这样的:
server <- function(input, output){
# Read in data
myDF <- read_excel('data/MyShinyData.xlsx')
当我运行app.R文件来测试应用程序,它工作正常。但是,当我使用shinyapps::deployApp('pathToWorkingDirectory')
将其发布到Shiny网站时,我得到的应用程序的灰色版本没有交互性。如果我模拟app.R文件中的数据(excel文件就是这个模拟数据,写入excell与write.xlsx),该应用程序还会向网站发布罚款 - 只有当我拿出用于模拟数据的代码时并用它停止工作的read_excel命令替换它。我也尝试使用.csv文件而不是.xlsx,但同样的问题。
我已经从下面的app.R文件复制了完整的代码。
我在做什么错?谢谢你的帮助。
library('ggplot2')
library('shiny')
library('psych')
library('readxl')
#===============
#This code makes a histogram, a coplot, and a prediction for species richness ('SpNat') given Forest cover ('NBT').
#===============
m1 <- lm(SpNat ~ NBT, data=myDF) #For prediction. best to create all non-reactive [ie non-updating] code outside the app, so it doesn't have to run every time.
#==========
# ui section
#==========
ui <- fluidPage(
### MAKING A TITLE
titlePanel("Dashboard based on excel data"),
### DIVIDING INPUTS TO SIDEBAR VS MAIN PANELS:
sidebarLayout(
sidebarPanel( #everything nested in here will go in sidebar
#dropdown input for coplot:
tags$h3('Select coplot variables'), #heading
selectInput(inputId='choiceX', label='Choose X variable',
choices=c('Species richness'='SpNat', 'Forest cover'='NBT', 'Pest control'='PC')), #***Choices are concatenated text strings.
selectInput(inputId='choiceY', label='Choose Y variable',
choices=c('Species richness'='SpNat', 'Forest cover'='NBT', 'Pest control'='PC')),
selectInput(inputId='choiceZ', label='Choose conditioning variable',
choices=c('Species richness'='SpNat', 'Forest cover'='NBT', 'Pest control'='PC')),
#checkbox input for pairs plots:
tags$h3('Select variables for pairs plots'), #heading
checkboxGroupInput(inputId='vars', label='Choose at least two variables for pairs plot',
selected=c('SpNat', 'NBT', 'PC'), #'determines which vars start off checked. Important for pairs, cos <2 and plot wont work.
choices=c('Species richness'='SpNat', 'Forest cover'='NBT', 'Pest control'='PC')), #***Server receives input as a single concatenated text
#slider input for prediction:
tags$h3('Predicting forest cover'), #heading
sliderInput(inputId='num',label='Pick a forest cover level', value=10, min=1, max=100)),
mainPanel( #everything nested in here will go in main panel
#specify output for app, including headings:
tags$h3('Coplot:'),
plotOutput(outputId='coplot'),
tags$h3('Histogram:'),
plotOutput(outputId='pairs'),
tags$h3('Predicted species richness:'),
verbatimTextOutput('prediction'))))
#==========
# server section
#==========
server <- function(input, output){
# Read in data
myDF <- read_excel('data/MyShinyData.xlsx') #don't need full path
myDF$PC <- as.factor(myDF$PC)
myDF <- select(myDF, SpNat, NBT, PC)
#create output object, and name it so it corresponds to the ui output function ID, plus use the ui input ID to create it:
output$coplot <- renderPlot(
ggplot(myDF, aes_string(input$choiceX, input$choiceY, col=input$choiceZ)) + geom_point()) #note use of aes_string to allow inputID use direct.
output$pairs <- renderPlot({
pairs.panels(subset(myDF, select=input$vars))})
output$prediction <- renderPrint({
newData <- data.frame(NBT=input$num)
cat(predict(m1, newdata = newData))
})
}
#==========
# and stitch together
#==========
shinyApp(ui=ui, server=server)
您需要确保使用相对路径。 –
@ MattO'Brien谢谢你。我想我已经使用相对路径了?我的Shiny app有这个路径'C:/ Users/new user/Documents/TESTShinyAppWithExcelData/app.R',我的数据有这个'C:/ Users/new user/Documents/TESTShinyAppWithExcelData/data/MyShinyData.xlsx',并且我用这个命令read_excel('data/MyShinyData.xlsx')'从闪亮的应用程序读取数据... ...那么这是一个正确的相对路径了吗?干杯 – jay