I am having difficulty deploying my app correctly. The app deploys quite alright; I don't get any error message, but it does not deploy the correct app. Below is the app I want to deploy:
But after deploying, this is what I see:
Can somebody please help me figure out what is going on? I have downloaded and installed the rsconnect package, as well as the IDE and curl packages. What could still be wrong? Is there a package I am still missing? I would really appreciate a suggestion please.
I have never encountered this sort of problem publishing an application. I have installed reconnect, PKI, and packrat packages, but the problem persists. I even created a new account in shiny.io, but there is no difference. I would really appreciate some advice right now.
Hello guys, please I am still on this issue about my app not deploying the right app, or deploying the app correctly. I ran a diagnostic, but looking through, I can't seem to make out where the problem lies. Here is the diagnosis log report:
----- Deployment log started at 2020-05-10 15:21:28 -----
Deploy command:
rsconnect::deployApp(appDir = "~/mavisanalytics", appFileManifest = "C:/Users/Idiaye/AppData/Local/Temp/41ba-eb9a-eed4-89df", appPrimaryDoc = "mavisanalytics.R", account = "mavisanalytic", server = "shinyapps.io", appName = "mavisanalytic", appTitle = "mavisanalytic", launch.browser = function(url) { message("Deployment completed: ", url) }, lint = FALSE, metadata = list(asMultiple = FALSE, asStatic = FALSE), logLevel = "verbose")
Session information:
R version 3.6.0 (2019-04-26)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 8.1 x64 (build 9600)
Matrix products: default
locale:
[1] LC_COLLATE=English_United Kingdom.1252
[2] LC_CTYPE=English_United Kingdom.1252
[3] LC_MONETARY=English_United Kingdom.1252
[4] LC_NUMERIC=C
[5] LC_TIME=English_United Kingdom.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
loaded via a namespace (and not attached):
[1] compiler_3.6.0 rsconnect_0.8.16
Cookies:
[1] "None"
GET /v1/applications/?filter=account_id:521782&filter=name:mavisanalytic&count=100&offset=0 1339ms
----- Bundle upload started at 2020-05-10 15:21:31 -----
[2020-05-10 15:21:31] Inferring App mode and parameters
[2020-05-10 15:21:31] Bundling app dir
[2020-05-10 15:21:32] Generate manifest.json
[2020-05-10 15:25:49] Writing Rmd index if necessary
[2020-05-10 15:25:49] Compressing the bundle
POST /v1/bundles 5399ms
[2020-05-10 15:26:02] Starting upload now
PUT /bundles/application-2244614/81faa60b5cd44f69a743e8b125647c9c.tar.gz?AWSAccessKeyId=ASIA54P7SCTK7HP673IH&x-amz-acl=bucket-owner-full-control&Expires=1589124376&content-md5=coG%2BPby5ZsGxhhF%2B9CeNiA%3D%3D&x-amz-security-token=IQoJb3JpZ2luX2VjEMn%2F%2F%2F%2F%2F%2F%2F%2F%2F%2FwEaCXVzLWVhc3QtMSJHMEUCIQCTrMOemWfSSl%2BzjukGiq7%2F89q%2Be8iF5shZ7Q3UWZjEHQIgIBPKbKAqJnQS1zM9AsgAxOQrEoSVuQnGcdBcOx8pG5IqtAMIEhAAGgw5NTQ1NTU1NjkzNjUiDKJ8MkOG8xuYzttSSyqRA9aqsCh0A76Uf4phoPnXerOVq%2FxJDSW5zKMHBh1R0T27XfQDLIMV8L%2BtT%2B8SJJQOilLUaTVex7kvZRgVX6ROea5Z39im9142pMwtvvneCKvaJwHX21HCSC9M5opHfNU9i7Nm3k%2BdqtTdD0ayLlmaSbKD4UlBD8uCWu84Z15OCyssTswbjeHyyTCzNsnFwt%2FzV5YW%2FrlCumBLf2%2F%2BxGmVmxu1p2J3qVDVCPf9BpoaoPbpgkI1uWqgxYy4%2FH8FwMtpwBUSQeGU%2FWNkXIG71q7FSHwY%2FEH2YkIoYhT9yQGj8ckPLU7WBj%2B75Ndq%2B3lbpSyMpYLY8I%2FZGcrT88nlE7ZYrFZ3us%2B7ZxyU5y8vHhqUXubCbC4MRZbklxKgYOZ8dHgB1OdBZnaxftevm1FGeH%2FyBTkL7exEZKPP7hcNGI4BUgz6nBCgsGMP1tBKfRSZ4lKXV0bTW%2Fh2axZB0BVrSC7MWClVHHS2AZ9KK39%2BygzE5u5Hmhmh7xp%2BBzU8lkDrgrR%2Bg%2BEhKCS%2BaqzNDR7V%2FiDkBdbmMIv03vUFOusBf%2BIK9IoQi7fVm1%2B0OpLncbkG%2BZvfFjXfOE4u0PwX6Mb41NfdNh2EjN2dyMKHTngBrs%2BKp5By0xvkDY9G2MdIW12PZGK8MFnYNsiFj88AaX3ulVCo5GlqMfg%2BgZmwkR72KiG%2BCR2h%2F5rDWgO%2BPQORH8TL8ISHKeaKyr9q9zNN5oQMxVXGefmwIm0EtN4JjroQQnBcgyyGrYNNMITWxjj6HajjbYgjTbs6KjWd336CcrU%2F%2BdOapWzuCw%2BfEQVSQ127Jx8xfNgfZ5LbBEZ5rCn3mFegaAU7O6dHjV1o4An4Zz166HfG47qbMFOTlQ%3D%3D&Signature=1KB4IEiuY8lxrDccz2JpQI%2BPTE8%3D&content-type=application%2Fx-tar 237580ms
[2020-05-10 15:30:00] Upload complete
POST /v1/bundles/3127826/status 1399ms
GET /v1/bundles/3127826 1180ms
[2020-05-10 15:30:03] Saving deployment record for mavisanalytic -
----- Server deployment started at 2020-05-10 15:30:03 -----
POST /v1/applications/2244614/deploy 1360ms
Waiting for task: 729106616
GET /v1/tasks/729106616 1280ms
building: Parsing manifest
GET /v1/tasks/729106616 1219ms
building: Building image: 3490965
GET /v1/tasks/729106616 1190ms
building: Installing system dependencies
GET /v1/tasks/729106616 1359ms
GET /v1/tasks/729106616 1170ms
building: Fetching packages
GET /v1/tasks/729106616 1740ms
building: Installing packages
GET /v1/tasks/729106616 1500ms
GET /v1/tasks/729106616 1610ms
GET /v1/tasks/729106616 1539ms
GET /v1/tasks/729106616 1279ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1180ms
GET /v1/tasks/729106616 1240ms
GET /v1/tasks/729106616 1170ms
GET /v1/tasks/729106616 1250ms
GET /v1/tasks/729106616 1230ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1189ms
GET /v1/tasks/729106616 1220ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1189ms
building: Installing files
GET /v1/tasks/729106616 1139ms
GET /v1/tasks/729106616 1169ms
building: Pushing image: 3490965
GET /v1/tasks/729106616 1250ms
GET /v1/tasks/729106616 1180ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1209ms
GET /v1/tasks/729106616 1159ms
GET /v1/tasks/729106616 1230ms
GET /v1/tasks/729106616 1189ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1180ms
GET /v1/tasks/729106616 1190ms
GET /v1/tasks/729106616 1179ms
GET /v1/tasks/729106616 1190ms
deploying: Starting instances
GET /v1/tasks/729106616 1190ms
rollforward: Activating new instances
GET /v1/tasks/729106616 1209ms
success: Stopping old instances
----- Deployment log finished at 2020-05-10 15:31:31 -----
Deployment completed: https://mavisanalytic.shinyapps.io/mavisanalytic/
Please, I desperately need to be able to deploy this app.
Again, I tried to deploy the app; and this time, I got the following error message in my console:
Error in curl::curl_fetch_memory(url, handle = handle) :
Timeout was reached: [api.shinyapps.io] Resolving timed out after 10000 milliseconds
Timing stopped at: 8.34 0.84 12.53
My shiny app runs very well in rstudio, but does not deploy well in shinyapps.io. I discovered that while uploading of bundle gets done, deploying of bundle is never completed. Here is the log from deployment:
Preparing to deploy application...DONE
Uploading bundle for application: 2244614...DONE
Deploying bundle: 3143286 for application: 2244614 ...
Waiting for task: 730931468
building: Parsing manifest
building: Building image: 3509174
building: Installing system dependencies
building: Fetching packages
building: Installing packages
building: Installing files
building: Pushing image: 3509174
deploying: Starting instances
rollforward: Activating new instances
terminating: Stopping old instances
Application successfully deployed to https://mavisanalytic.shinyapps.io/mavisanalytic/
When I ran the appDependencies() code, I got the following list of dependencies:
rsconnect::appDependencies(appDir= "mavisanalytics")
package version source
1 BH 1.72.0-3 CRAN
2 MASS 7.3-51.6 CRAN
3 Matrix 1.2-18 CRAN
4 NLP 0.2-0 CRAN
5 R6 2.4.1 CRAN
6 RColorBrewer 1.1-2 CRAN
7 Rcpp 1.0.4.6 CRAN
8 SentimentAnalysis 1.3-3 CRAN
9 askpass 1.1 CRAN
10 assertthat 0.2.1 CRAN
11 backports 1.1.6 CRAN
12 callr 3.4.3 CRAN
13 cli 2.0.2 CRAN
14 codetools 0.2-16 CRAN
15 colorspace 1.4-1 CRAN
16 crayon 1.3.4 CRAN
17 curl 4.3 CRAN
18 data.table 1.12.8 CRAN
19 desc 1.2.0 CRAN
20 digest 0.6.25 CRAN
21 dplyr 0.8.5 CRAN
22 dtt 0.1-2 CRAN
23 ellipsis 0.3.0 CRAN
24 english 1.2-5 CRAN
25 evaluate 0.14 CRAN
26 fansi 0.4.1 CRAN
27 farver 2.0.3 CRAN
28 fastmap 1.0.1 CRAN
29 foreach 1.5.0 CRAN
30 ggplot2 3.3.0 CRAN
31 glmnet 3.0-2 CRAN
32 glue 1.4.0 CRAN
33 gtable 0.3.0 CRAN
34 htmltools 0.4.0 CRAN
35 htmlwidgets 1.5.1 CRAN
36 httpuv 1.5.2 CRAN
37 isoband 0.2.1 CRAN
38 iterators 1.0.12 CRAN
39 jsonlite 1.6.1 CRAN
40 labeling 0.3 CRAN
41 lars 1.2 CRAN
42 later 1.0.0 CRAN
43 lattice 0.20-38 CRAN
44 lexicon 1.2.1 CRAN
45 lifecycle 0.2.0 CRAN
46 magrittr 1.5 CRAN
47 mgcv 1.8-28 CRAN
48 mgsub 1.7.1 CRAN
49 mime 0.9 CRAN
50 moments 0.14 CRAN
51 munsell 0.5.0 CRAN
52 ngramrr 0.2.0 CRAN
53 nlme 3.1-139 CRAN
54 openssl 1.4.1 CRAN
55 packrat 0.5.0 CRAN
56 pillar 1.4.4 CRAN
57 pkgbuild 1.0.8 CRAN
58 pkgconfig 2.0.3 CRAN
59 pkgload 1.0.2 CRAN
60 plogr 0.2.0 CRAN
61 praise 1.0.0 CRAN
62 prettyunits 1.1.1 CRAN
63 processx 3.4.2 CRAN
64 promises 1.1.0 CRAN
65 ps 1.3.2 CRAN
66 purrr 0.3.4 CRAN
67 qdapDictionaries 1.0.7 CRAN
68 qdapRegex 0.7.2 CRAN
69 randomForest 4.6-14 CRAN
70 reactR 0.4.2 CRAN
71 reactable 0.1.0.1 CRAN
72 rlang 0.4.6 CRAN
73 rprojroot 1.3-2 CRAN
74 rsconnect 0.8.16 CRAN
75 rstudioapi 0.11 CRAN
76 scales 1.1.0 CRAN
77 shape 1.4.4 CRAN
78 shiny 1.4.0.2 CRAN
79 shinyWidgets 0.5.1 CRAN
80 shinyalert 1.1 CRAN
81 shinycssloaders 0.3 CRAN
82 shinyjs 1.1 CRAN
83 shinythemes 1.1.2 CRAN
84 slam 0.1-47 CRAN
85 sourcetools 0.1.7 CRAN
86 spikeslab 1.1.5 CRAN
87 stringdist 0.9.5.5 CRAN
88 stringi 1.4.6 CRAN
89 sys 3.3 CRAN
90 syuzhet 1.0.4 CRAN
91 tau 0.0-21 CRAN
92 testthat 2.3.2 CRAN
93 textclean 0.9.3 CRAN
94 textshape 1.7.1 CRAN
95 tibble 3.0.1 CRAN
96 tidyr 1.0.2 CRAN
97 tidyselect 1.0.0 CRAN
98 tm 0.7-7 CRAN
99 utf8 1.1.4 CRAN
100 vctrs 0.2.4 CRAN
101 viridisLite 0.3.0 CRAN
102 withr 2.2.0 CRAN
103 xml2 1.3.2 CRAN
104 xtable 1.8-4 CRAN
105 yaml 2.2.1 CRAN
106 zoo 1.8-8 CRAN
Is there still something I am missing?
Have you tried deleting the app from your account and deploying again? That should clear any cache that could be causing this issue.
I have tried that a number of times, but the problem persists
Do you have more than one account linked to RStudio? Have you make sure you are deploying to the expected account? I suspect this is a misconfiguration rather than a technical issue.
Yes, I have 3 accounts on shinyapps.io, but I have tried mostly to deploy the app to my 'mavisanalytic' account
I tried deploying the app again to my 'mavisanalytic' account on shinyapps.io. Now I have the following error message in my browser after deployment:
# An error has occurred
The application failed to start (exited with code 1).
`Error in value[[3L]](cond) : object 'server' not found
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Execution halted`
Could you check what your app's logs say?
Can you show your code or even better a reproducible example?
Hi Adresrcs, here is my shiny app code. It's a little messy though:
if(interactive()){
library(shiny)
library(shinyalert)
library(shinycssloaders)
library(shinythemes)
library(shinyWidgets)
library(shinyjs)
library(SentimentAnalysis)
library(textclean)
library(reactable)
library(rsconnect)
library(curl)
library(tm)
options(spinner.color="#3498db",
spinner.color.background="#ffffff",
spinner.size=1)
ui<-list(useShinyjs(),navbarPage(strong("Mavis Analytic"),theme=shinytheme("cerulean"),
windowTitle="Mavis Analytic",fluid=TRUE,inverse=FALSE,
tabPanel(strong("Opinion Miner"),icon=icon("table"),useShinyalert(),
setBackgroundColor("white"),setBackgroundImage(src="white.jpg"),
sidebarLayout(
sidebarPanel(width=3,
img(src="logo.jpg",height=130,width=150),
h4(strong("Enter your texts in these fields")),
actionButton("clear",strong("Clear Fields"),icon=icon("broom")),br(),br(),
textAreaInput("text","Text Field 1",value="It is a beautiful day"),
textAreaInput("texts","Text Field 2",value="I am happy to be here"),
textAreaInput("word","Text Field 3",value="Let's have some fun"),
textAreaInput("words","Text Field 4",value="It has been a bad outing"),
textAreaInput("wordy","Text Field 5",value="I dislike clowns"),
actionButton("run",strong("Run Analysis"),icon=icon("caret-right")),br(),hr(),h5(strong("The number of words entered into each text field:")),reactableOutput("count",width="40%")),
mainPanel(h4("The Opinion Miner is a tool for conducting sentiment analysis. It is useful for analyzing and scoring the kinds of sentiments expressed in texts, such as in literature, social media posts, or product reviews."),hr(),h3(strong("Table of Sentiment Scores")),withSpinner(reactableOutput("table"),type=1),downloadButton("download",strong("Download Table")),br(),br(),
column(4,selectInput("choice","Select Sentiment Score to Plot",choices=c("QDAP","LoughranM","HarvardIV"))),column(4,selectInput("color","Select Color",choices=c("Blue","Red","Green","Yellow","Purple"))),
fluidRow(column(6,withSpinner(plotOutput("plot",height=350,width=400),type=1)),column(6,withSpinner(plotOutput("graph",height=350,width=400),type=1))),
fluidRow(column(6,downloadButton("plot.down",strong("Download Graph"))))))),
tabPanel(strong("Financial Ratios Calculator"),icon=icon("chart-bar"),
sidebarLayout(
sidebarPanel(width=2,h4(strong("Profit figures:")),
actionButton("delete",strong("Clear Fields"),icon=icon("broom")),br(),br(),
textInput("num","Profit 1",value="100000",width=150),
textInput("numb","Profit 2",value="150000",width=150),
textInput("number","Profit 3",value="200000",width=150),
textInput("numbers","Profit 4",value="250000",width=150),
textInput("numbered","Profit 5",value="300000",width=150),
hr(),
h4(strong("Turnover figures:")),
actionButton("remove",strong("Clear Fields"),icon=icon("broom")),br(),br(),
textInput("fig","Turnover 1",value="350000",width=150),
textInput("figs","Turnover 2",value="300000",width=150),
textInput("figu","Turnover 3",value="420000",width=150),
textInput("figur","Turnover 4",value="600000",width=150),
textInput("figure","Turnover 5",value="550000",width=150),
actionButton("go",strong("Calculate Ratio"),icon=icon("caret-right")),
hr(),
h4(strong("Receivables figures:")),
actionButton("vanish",strong("Clear Fields"),icon=icon("broom")),br(),br(),
textInput("deb","Receivables 1",value="150000",width=150),
textInput("debt","Receivables 2",value="100000",width=150),
textInput("debts","Receivables 3",value="50000",width=150),
textInput("debtor","Receivables 4",value="80000",width=150),
textInput("debtors","Receivables 5",value="170000",width=150),
actionButton("away",strong("Calculate Ratio"),icon=icon("caret-right"))),
mainPanel(h4("The Financial Ratios Calculator makes possible a comparative analysis of a company's profitability and efficiency ratios over time."),hr(),
h3(strong("Profitability Ratios")),h4("(Profit/Turnover): Calculates how much profit margin (%) a company makes on its sales"),fluidRow(column(6,withSpinner(plotOutput("bar",),type=1)),column(6,withSpinner(plotOutput("pie"),type=1))),
fluidRow(column(6,downloadButton("drop",strong("Download Bar Plot"))),column(6,downloadButton("fall",strong("Download Pie Chart")))),hr(),
h3(strong("Efficiency Ratios")),h4("(Receivables/Turnover): Calculates the average length of time (in days) it takes for a company to recover its debts"),
fluidRow(column(6,withSpinner(plotOutput("sphere"),type=1)),column(6,withSpinner(plotOutput("bin"),type=1))),
fluidRow(column(6,downloadButton("down",strong("Download Pie Chart"))),column(6,downloadButton("plummet",strong("Download Bar Plot")))))
)),
tabPanel(strong("About Mavis Analytic"),icon=icon("info"),mainPanel(h4(div(style="color:#5499c7","Mavis Analytic is designed as a multi-functional web application, with a variety of features that make it a modern business tool.
It currently incorporates tools for conducting sentiment analysis and financial performance evaluation. The goal of the designers of Mavis Analytic, Mavis Naissance Consulting,
is to keep expanding the scope of the application, by creating more functions that will make it a very versatile software for a wide range of business uses. ")),img(src="New.jpg",height=150,width=150))),
tabPanel(strong("Send Us Your Feedback"),icon=icon("envelope"),
HTML("<iframe src=https://docs.google.com/forms/d/e/1FAIpQLSex-eKi33LdmZE7L3PwjWm4tFbFoEIw_L_KUvsSi6kgdXgJPA/viewform?embedded=true width=1400 height=1000 frameborder=0 marginheight=0 marginwidth=0>Loading.</iframe>")),
navbarMenu(strong("More"),
tabPanel(strong("Graphs and Charts"),icon=icon("chart-bar"),sidebarLayout(sidebarPanel(width=3, selectInput("select","Select Variable to Plot",choice=c(
"Indegree","Outdegree","Degree","Normalized",
"Domain","Proximity","Modularity","Clusters"
),selected="Modularity"),sliderInput("slide","Change Pie Chart Angle",min=45,max=180,animate=TRUE,value=45,step=1)),
mainPanel(fluidRow(column(6,plotOutput("draw")),column(6,plotOutput("art"))),br(),
fluidRow(column(6,plotOutput("paint")),column(6,plotOutput("part")))))),
tabPanel(strong("Tables"),icon=icon("table"),
mainPanel(h3("Network data pulled from Twitter interactions on different subjects "),actionButton("detail",strong("Table Info")),downloadButton("table.down",strong("Download Table")),reactableOutput("metrics.table"),hr(),
actionButton("more",strong("Table Info")),downloadButton("flat",strong("Download Table")), reactableOutput("freedom.table"))),
tabPanel(strong("Library"),icon=icon("file-pdf"),
fluidRow(column(6,tags$iframe(style="height:400px;width:100%;scrolling=yes",src="analysis.pdf")),column(6,tags$iframe(style="height:400px;width:100%;scrolling=yes",src="Audits.pdf"))),br(),
fluidRow(column(6,tags$iframe(style="height:400px;width:100%;scrolling=yes",src="pricing.pdf")),column(6,tags$iframe(style="height:400px;width:100%;scrolling=yes",src="tech.pdf")))))
))
server<-function(input,output,session){
observeEvent(input$clear,{
updateTextAreaInput(session,"text",value="",placeholder="Enter new text")
updateTextAreaInput(session,"texts",value="",placeholder="Enter new text")
updateTextAreaInput(session,"word",value="",placeholder="Enter new text")
updateTextAreaInput(session,"words",value="",placeholder="Enter new text")
updateTextAreaInput(session,"wordy",value="",placeholder="Enter new text")
})
observeEvent(input$run,{
shinyalert(title="Running Analysis",text="Please be patient while the app cleans the texts and runs the analysis",
closeOnEsc=TRUE,confirmButtonText="OK",timer=10000,animation=TRUE,closeOnClickOutside=TRUE)
})
observeEvent(input$detail,{
shinyalert(title="Disease on Twitter",text="This table contains the metrics underlying the network of Twitter interactions about disease, using the #disease hashtag",
closeOnEsc=TRUE,closeOnClickOutside=TRUE,animation=TRUE,confirmButtonText="OK",timer=10000)
})
observeEvent(input$more,{
shinyalert(title="Freedom on Twitter",text="This table contains the statistical data of the Twitter conversation about freedom, using the #freedom hashtag",
closeOnEsc=TRUE,closeOnClickOutside=TRUE,animation=TRUE,confirmButtonText="OK",timer=10000)
})
observeEvent(input$delete,{
updateTextInput(session,"num",value="",placeholder="0")
updateTextInput(session,"numb",value="",placeholder="0")
updateTextInput(session,"number",value="",placeholder="0")
updateTextInput(session,"numbers",value="",placeholder="0")
updateTextInput(session,"numbered",value="",placeholder="0")
})
observeEvent(input$remove,{
updateTextInput(session,"fig",value="",placeholder="0")
updateTextInput(session,"figs",value="",placeholder="0")
updateTextInput(session,"figu",value="",placeholder="0")
updateTextInput(session,"figur",value="",placeholder="0")
updateTextInput(session,"figure",value="",placeholder="0")
})
observeEvent(input$vanish,{
updateTextInput(session,"deb",value="",placeholder="0")
updateTextInput(session,"debt",value="",placeholder="0")
updateTextInput(session,"debts",value="",placeholder="0")
updateTextInput(session,"debtor",value="",placeholder="0")
updateTextInput(session,"debtors",value="",placeholder="0")
})
doc<-reactive({c(if(nchar(input$text)>0){input$text},
if(nchar(input$texts)>0){input$texts},
if(nchar(input$word)>0){input$word},
if(nchar(input$words)>0){input$words},
if(nchar(input$wordy)>0){input$wordy}
)
})
profit<-reactive({
as.numeric(c(if(input$num>0){input$num},
if(input$numb>0){input$numb},
if(input$number>0){input$number},
if(input$numbers>0){input$numbers},
if(input$numbered>0){input$numbered}))
})
turnover<-reactive({
as.numeric(c(if(input$fig>0){input$fig},
if(input$figs>0){input$figs},
if(input$figu>0){input$figu},
if(input$figur>0){input$figur},
if(input$figure>0){input$figure}))
})
receivables<-reactive({
as.numeric(c(if(input$deb>0){input$deb},
if(input$debt>0){input$debt},
if(input$debts>0){input$debts},
if(input$debtor>0){input$debtor},
if(input$debtors>0){input$debtors}))
})
output$table.down<-downloadHandler(
filename=function(){
paste("Metrics",".csv",sep="")
},
content=function(file){
write.csv(disease,file)
}
)
output$flat<-downloadHandler(
filename=function(){
paste("Freedom",".csv",sep="")
},
content=function(file){
write.csv(freedom,file)
}
)
disease<-read.csv("metrics.csv",header=TRUE,sep=",")
disease.df<-data.frame(disease)
pie.data<-reactive({head(disease$Degree,n=8)})
bar.data<-reactive({head(freedom$Outdegree,n=6)})
freedom<-read.csv("Freedom.csv",header=TRUE,sep=",")
freedom.df<-data.frame(freedom)
data.X<-reactive({switch(input$select,
"Indegree"=disease$Indegree,
"Outdegree"=disease$Outdegree,
"Degree"=disease$Degree,
"Normalized"=disease$Normalized,
"Domain"=disease$Domain,
"Proximity"=disease$Proximity,
"Modularity"=disease$Modularity,
"Clusters"=disease$Clusters
)})
data.Y<-reactive({switch(input$choice,
"Indegree"=disease$Indegree,
"Outdegree"=disease$Outdegree,
"Degree"=disease$Degree,
"Normalized"=disease$Normalized,
"Domain"=disease$Domain,
"Proximity"=disease$Proximity,
"Modularity"=disease$Modularity,
"Clusters"=disease$Clusters
)})
output$metrics.table<-renderReactable({
reactable(disease.df,
searchable=TRUE,
outlined=TRUE,
highlight=TRUE,
bordered=TRUE,
striped=TRUE,
compact=TRUE,
defaultColDef=colDef(
align="center",
headerStyle=list(background="#5dade2")
))
})
output$freedom.table<-renderReactable({
reactable(freedom.df,
compact=TRUE,
striped=TRUE,
searchable=TRUE,
bordered=TRUE,
highlight=TRUE,
defaultColDef=colDef(
align="center",
headerStyle=list(background="#5dade2")
))
})
#This is the function for calculating profitability ratio
profitability<-function(profit,turnover){
profitability=round((profit/turnover)*100,1)
return(profitability)
}
profitability.ratio<-reactive({profitability(profit(),turnover())})
#This is the function for calculating efficiency ratio
efficiency<-function(receivables,turnover){
efficiency<-round((receivables/turnover)*365,1)
return(efficiency)
}
efficiency.reactive<-reactive({
efficiency(receivables(),turnover())
})
Analyze<-reactive({
round(analyzeSentiment(
replace_symbol(
replace_number(
replace_ordinal(
doc())))),1)})
QDAP<-reactive({Analyze()$SentimentQDAP})
LoughranM<-reactive({Analyze()$SentimentLM})
HarvardIV<-reactive({Analyze()$SentimentGI})
word.count<-reactive({countWords(doc(),removeStopwords=FALSE)})
tables<-reactive({
data.frame(QDAP(),LoughranM(),HarvardIV())
})
data<-reactive({switch(input$choice,
"QDAP"=tables()$QDAP,
"LoughranM"=tables()$LoughranM,
"HarvardIV"=tables()$HarvardIV)})
output$download<-downloadHandler(
filename=function(){
paste("table",".csv",sep="")
},
content=function(file){
write.csv(tables(),file)
}
)
output$drop<-downloadHandler(
filename=function(){
paste("Barplot",".jpg",sep="")
},
content=function(file){
jpeg(file)
barplot(profitability.ratio(),
col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"),
beside=TRUE,
border="white",
xlab="Years",
ylab="Margins in (%)")
dev.off()
}
)
output$fall<-downloadHandler(
filename=function(){
paste("Piechart",".jpg",sep="")
},
content=function(file){
jpeg(file)
pie(profitability.ratio(),radius=1.1,col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"),
border="white",
clockwise=TRUE,
init.angle=90,
labels=profitability.ratio())
dev.off()
}
)
output$down<-downloadHandler(
filename=function(){
paste("Piechart",".jpg",sep="")
},
content=function(file){
jpeg(file)
pie(efficiency.reactive(),radius=1.1,border="white",clockwise=TRUE,
init.angle=90,
labels=efficiency.reactive(),
col=c("#5dade2","#85c1e9","#3498db","#2e86c1","#2874a6"))
dev.off()
}
)
output$plummet<-downloadHandler(
filename=function(){
paste("Barplot",".jpg",sep="")
},
content=function(file){
jpeg(file)
barplot(efficiency.reactive(),
col=c("#5dade2","#85c1e9","#3498db","#2e86c1","#2874a6"),
border="white",
beside=TRUE,
xlab="Years",
ylab="Days")
dev.off()
}
)
output$plot.down<-downloadHandler(
filename=function(){
paste("Graph",".jpg",sep="")
},
content=function(file){
jpeg(file)
color<-switch(input$color,
"Blue"="#5dade2",
"Red"="#e74c3c",
"Green"="#1abc9c",
"Yellow"="#f7dc6f",
"Purple"="#a569bd")
barplot(data(),col=color,border="white",xlab="Texts",ylab="Sentiment Scores",main="Bar Plot of Sentiment Scores")
dev.off()
}
)
output$table<-renderReactable({
input$run
isolate(reactable(tables(),searchable=TRUE,bordered=TRUE,defaultColDef=colDef(
align="center",
headerStyle=list(background="#5dade2"),
style=function(value){
if(value>0){color<-"#27ae60"}
else if(value<0){color<-"#e74c3c"}
else{color<-"#5dade2"}
list(color=color,fontWeight="bold")
}),
highlight=TRUE,outlined=TRUE,striped=TRUE,filterable=FALSE,compact=TRUE,onClick="expand")
)
})
output$count<-renderReactable({
input$run
isolate(reactable(data.frame(word.count()),bordered=TRUE,striped=TRUE,compact=TRUE,
defaultColDef=colDef(
align="center",
headerStyle=list(background="#85c1e9"))
))
})
output$plot<-renderPlot({
color<-switch(input$color,
"Blue"="#5dade2",
"Red"="#e74c3c",
"Green"="#1abc9c",
"Yellow"="#f7dc6f",
"Purple"="#a569bd")
input$run
isolate(barplot(data(),col=color,border="white",xlab="Texts",ylab="Sentiment Scores",main="Bar Plot of Sentiment Scores"))
})
output$graph<-renderPlot({
input$run
isolate(plotSentiment(data(),xlab="Texts",ylab="Sentiment Scores"))
})
output$bar<-renderPlot({
input$go
isolate(barplot(profitability.ratio(),
col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"),
beside=TRUE,
border="white",
xlab="Years",
ylab="Margins in (%)"))
})
output$pie<-renderPlot({
input$go
isolate(pie(profitability.ratio(),radius=1.1,col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"),
border="white",
clockwise=TRUE,
init.angle=90,
labels=profitability.ratio()))
})
output$sphere<-renderPlot({
input$away
isolate(
pie(efficiency.reactive(),radius=1.1,border="white",clockwise=TRUE,
init.angle=90,
labels=efficiency.reactive(),
col=c("#5dade2","#85c1e9","#3498db","#2e86c1","#2874a6"))
)
})
output$bin<-renderPlot({
input$away
isolate(
barplot(efficiency.reactive(),
col=c("#5dade2","#85c1e9","#3498db","#2e86c1","#2874a6"),
border="white",
beside=TRUE,
xlab="Years",
ylab="Days")
)
})
output$draw<-renderPlot({
hist(data.X(),border="white",col="#3498db",main="Variable Plots",xlab="Metrics")
})
output$art<-renderPlot({
plot(data.X(),disease$Modularity,col="#e74c3c",xlab="Metrics",ylab="Value",pch=20,
cex=2,type="h",main="Variable Plots")
})
output$paint<-renderPlot({
pie(pie.data(),radius=1.1,clockwise=TRUE,init.angle=input$slide,
border="white",col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"),main="Pie Chart of Degrees")
})
output$part<-renderPlot({
barplot(bar.data(),border="white",main="Bar Plot of Outdegrees",
xlab="Outdegrees",ylab="Values",col=c("#5dade2","#ec7063","#48c9b0","#a569bd","#f4d03f"))
})
}
}
shinyApp(ui=ui,server=server)
Here is the log from the deployed app:
2020-05-14T15:52:54.056269+00:00 shinyapps[2244614]: Server version: 1.8.2-10
2020-05-14T15:52:54.056270+00:00 shinyapps[2244614]: LANG: en_GB.UTF-8
2020-05-14T15:52:54.056345+00:00 shinyapps[2244614]: R version: 3.6.0
2020-05-14T15:52:54.056346+00:00 shinyapps[2244614]: shiny version: 1.4.0.2
2020-05-14T15:52:54.056347+00:00 shinyapps[2244614]: httpuv version: 1.5.2
2020-05-14T15:52:54.056349+00:00 shinyapps[2244614]: RJSONIO version: (none)
2020-05-14T15:52:54.056348+00:00 shinyapps[2244614]: jsonlite version: 1.6.1
2020-05-14T15:52:54.056366+00:00 shinyapps[2244614]: htmltools version: 0.4.0
2020-05-14T15:52:54.056488+00:00 shinyapps[2244614]: Using pandoc: /opt/connect/ext/pandoc2
2020-05-14T15:52:54.056348+00:00 shinyapps[2244614]: rmarkdown version: (none)
2020-05-14T15:52:54.056348+00:00 shinyapps[2244614]: knitr version: (none)
2020-05-14T15:52:54.222678+00:00 shinyapps[2244614]: Using jsonlite for JSON processing
2020-05-14T15:52:54.233534+00:00 shinyapps[2244614]:
2020-05-14T15:52:54.233535+00:00 shinyapps[2244614]: Starting R with process ID: '82'
2020-05-14T15:52:54.265375+00:00 shinyapps[2244614]: Error in value[[3L]](cond) : object 'server' not found
2020-05-14T15:52:54.265377+00:00 shinyapps[2244614]: Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
2020-05-14T15:52:54.265378+00:00 shinyapps[2244614]: Execution halted
2020-05-14T16:00:01.903062+00:00 shinyapps[2244614]: Server version: 1.8.2-10
2020-05-14T16:00:01.903119+00:00 shinyapps[2244614]: LANG: en_GB.UTF-8
2020-05-14T16:00:01.903122+00:00 shinyapps[2244614]: shiny version: 1.4.0.2
2020-05-14T16:00:01.903121+00:00 shinyapps[2244614]: R version: 3.6.0
2020-05-14T16:00:01.903122+00:00 shinyapps[2244614]: httpuv version: 1.5.2
2020-05-14T16:00:01.903123+00:00 shinyapps[2244614]: rmarkdown version: (none)
2020-05-14T16:00:01.903123+00:00 shinyapps[2244614]: knitr version: (none)
2020-05-14T16:00:01.903123+00:00 shinyapps[2244614]: jsonlite version: 1.6.1
2020-05-14T16:00:01.903124+00:00 shinyapps[2244614]: RJSONIO version: (none)
2020-05-14T16:00:01.903124+00:00 shinyapps[2244614]: htmltools version: 0.4.0
2020-05-14T16:00:01.903278+00:00 shinyapps[2244614]: Using pandoc: /opt/connect/ext/pandoc2
2020-05-14T16:00:02.069633+00:00 shinyapps[2244614]: Using jsonlite for JSON processing
2020-05-14T16:00:02.079726+00:00 shinyapps[2244614]:
2020-05-14T16:00:02.079727+00:00 shinyapps[2244614]: Starting R with process ID: '23'
2020-05-14T16:00:02.112496+00:00 shinyapps[2244614]: Error in value[[3L]](cond) : object 'server' not found
2020-05-14T16:00:02.112499+00:00 shinyapps[2244614]: Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
2020-05-14T16:00:02.112500+00:00 shinyapps[2244614]: Execution halted
2020-05-14T16:00:22.583323+00:00 shinyapps[2244614]: Server version: 1.8.2-10
2020-05-14T16:00:22.583326+00:00 shinyapps[2244614]: LANG: en_GB.UTF-8
2020-05-14T16:00:22.583356+00:00 shinyapps[2244614]: R version: 3.6.0
2020-05-14T16:00:22.583357+00:00 shinyapps[2244614]: shiny version: 1.4.0.2
2020-05-14T16:00:22.583357+00:00 shinyapps[2244614]: httpuv version: 1.5.2
2020-05-14T16:00:22.583358+00:00 shinyapps[2244614]: rmarkdown version: (none)
2020-05-14T16:00:22.583358+00:00 shinyapps[2244614]: knitr version: (none)
2020-05-14T16:00:22.583358+00:00 shinyapps[2244614]: jsonlite version: 1.6.1
2020-05-14T16:00:22.583379+00:00 shinyapps[2244614]: htmltools version: 0.4.0
2020-05-14T16:00:22.583379+00:00 shinyapps[2244614]: RJSONIO version: (none)
2020-05-14T16:00:22.583566+00:00 shinyapps[2244614]: Using pandoc: /opt/connect/ext/pandoc2
2020-05-14T16:00:22.741154+00:00 shinyapps[2244614]: Using jsonlite for JSON processing
2020-05-14T16:00:22.750753+00:00 shinyapps[2244614]:
2020-05-14T16:00:22.750754+00:00 shinyapps[2244614]: Starting R with process ID: '39'
2020-05-14T16:00:22.779959+00:00 shinyapps[2244614]: Error in value[[3L]](cond) : object 'server' not found
2020-05-14T16:00:22.779960+00:00 shinyapps[2244614]: Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
2020-05-14T16:00:22.779973+00:00 shinyapps[2244614]: Execution halted
Try not enclosing your code in this if statement, on the server the code doesn't get executed interactively so all your code is ignored.
I will try that and revert to you Andresrcs. Thanks a lot for patiently helping me find a solution.
Hi Andresrcs, thanks so much, my app now deploys and runs just fine. It was a really bumpy ride, but it's settled now. I am really grateful for your patience and advice. Thanks again
You're welcome, If your question's been answered (even by you!), would you mind choosing a solution? It helps other people see which questions still need help, or find solutions if they have similar problems. Here’s how to do it:
This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.