![](/img/trans.png)
[英]SHINY R reading different versions of excel files based on user selections
[英]reading excel files into Shiny
我是Shiny的新手,正在尝试使用excel文件中的数据运行应用程序。 看起来应该很简单,但无法弄清楚。 那里有大量信息,可以执行更复杂的任务(以交互方式上传文件,在其中指定列,文件位置等)-但我想要的只是一个使用来自后台加载的单个excel文件中数据的应用程序。
之前曾问过类似的问题( 将csv文件上传到ShinyApps.io和R Shiny读取csv文件 ),但我没有从他们那里得到令人满意的答案。
我的excel文件保存在与app.R文件相同的目录下的“数据”文件夹中。 我将其读入脚本的server
部分,如下所示:
server <- function(input, output){
# Read in data
myDF <- read_excel('data/MyShinyData.xlsx')
当我运行app.R文件来测试应用程序时,它可以正常工作。 但是,当我使用shinyapps::deployApp('pathToWorkingDirectory')
将其发布到Shiny网站时,我看到该应用程序的灰色版本没有交互性。 如果我模拟app.R文件中的数据(Excel文件就是该模拟数据,并使用write.xlsx写入excel),则该应用程序也可以很好地发布到网站上-仅当我取出用于模拟数据的代码时并将其替换为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)
弄清楚了。 我有两个问题:
(1)在发布之前,我已将应用复制到新文件夹中,因此工作目录已更改-需要在运行shinyapps::deployApp
之前重置为包含我的app.R文件的文件夹。
(2)应用程序所需的几个软件包会自动加载到R控制台中(我已对.Rprofile文件进行了更改)。 因此,虽然我不需要加载这些就可以在本地运行该应用程序,但是我确实将其在线发布了。
两者都是很愚蠢的错误,但是您可以生活和学习。
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.