blog/how-to-publish-shiny-app-example-with-shinyapps-io/

[utterances-bot]

How to publish a Shiny app: example with shinyapps.io - Stats and R

See a step-by-step guide (with screenshots) on how to deploy and publish online a Shiny app using shinyapps.io

https://statsandr.com/blog/how-to-publish-shiny-app-example-with-shinyapps-io/

[kuibaoli]

I have succeeded in step 16 and edited the app (i.e., replace the entire code by my app).Then I run the app again by clicking on the Run App button. The Shiny app appeared in my computer. I tried to published it in my internet browser by clicking on the Publish button. However.it does not work. It shows as follows. An error has occurred.The application failed to start: exited unexpectedly with code 1. I wonder what the reasons for it. Thanks inadvance.

[AntoineSoetewey]

I have succeeded in step 16 and edited the app (i.e., replace the entire code by my app).Then I run the app again by clicking on the Run App button. The Shiny app appeared in my computer. I tried to published it in my internet browser by clicking on the Publish button. However.it does not work. It shows as follows. An error has occurred.The application failed to start: exited unexpectedly with code 1. I wonder what the reasons for it. Thanks inadvance.

Can you give me the shinyapps.io link to your app?
Is the code of your app available on GitHub? If yes, what is the repo? So I can try to publish it on my side to check everything is working smoothly.

Regards,
Antoine

[saeedraeisi]

Hello,

I want to publishing a data on shinaapp, i faced with the below error on R,
"Error in func(fname, ...) : app.R did not return a shiny.appobj object"
And in the shinyapp i faced with
"Error in value[3L] : could not find function "%>%"
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne ->
Execution halted"

This is my code:

df1 <- cases2020 %>% filter(cases<500)

library(tidyverse)
library(shiny)
library(ggplot2)

# Define UI for application that draws a histogram
ui <- fluidPage(
  
  # Application title
  titlePanel("Old Faithful Geyser Data"),

  sidebarLayout(
    sidebarPanel(
      sliderInput("bins",
                  "Number of bins:",
                  min = 1,
                  max = 50,
                  value = 30)
    ),

    mainPanel(
      plotOutput("distPlot") ,
      plotOutput ("fylke")
    )
  )
)


server <- function(input, output) {
  
  output$distPlot <- renderPlot({

    Cases_Frequently    <-df1$cases
    bins <- seq(min(Cases_Frequently), max(Cases_Frequently), length.out = input$bins + 1)
 
    hist(Cases_Frequently, breaks = bins, col = 'blue', border = 'white', xlab = "Cases")
  })
  
  output$fylke <- renderPlot({
    
    y<-Newcases2020_sum$month
    
    z<-Newcases2020_sum$sumcases
    
    plot(x=y, y=z, xlab = "Month", ylab = "Cases")
      
  })
}

# Run the application 
shinyApp(ui, server)

[AntoineSoetewey]

Hello,

I want to publishing a data on shinaapp, i faced with the below error on R,
"Error in func(fname, ...) : app.R did not return a shiny.appobj object"
And in the shinyapp i faced with
"Error in value[3L] : could not find function "%>%"
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne ->
Execution halted"

This is my code:

df1 <- cases2020 %>% filter(cases<500)

library(tidyverse)
library(shiny)
library(ggplot2)

# Define UI for application that draws a histogram
ui <- fluidPage(

# Application title
titlePanel("Old Faithful Geyser Data"),

sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),


mainPanel(
  plotOutput("distPlot") ,
  plotOutput ("fylke")
)


)
)

server <- function(input, output) {

output$distPlot <- renderPlot({


Cases_Frequently    <-df1$cases
bins <- seq(min(Cases_Frequently), max(Cases_Frequently), length.out = input$bins + 1)

hist(Cases_Frequently, breaks = bins, col = 'blue', border = 'white', xlab = "Cases")


})

output$fylke <- renderPlot({


y<-Newcases2020_sum$month

z<-Newcases2020_sum$sumcases

plot(x=y, y=z, xlab = "Month", ylab = "Cases")


})
}

# Run the application
shinyApp(ui, server)

Hello,

Before trying to publish your app, is your app working locally (on your computer)?

It seems to me that you run df1 <- cases2020 %>% filter(cases<500) but you don't import the dataset.

Regards,
Antoine

[saeedraeisi]

Thank you for your time and response.  yes, it is working on my PC, after i click on number 2(below picture) it is published on the shiny app. but when i want to run it on shinyapp i faced with the "Error in value[[3L]](cond) : could not find function "%>%"Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>Execution halted" Best Regards, Saeed Raeisi

[AntoineSoetewey]

Thank you for your time and response.  yes, it is working on my PC, after i click on number 2(below picture) it is published on the shiny app. but when i want to run it on shinyapp i faced with the "Error in value[3L] : could not find function "%>%"Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> Execution halted"

The error could not find function "%>%" means that the dplyr package is not correctly installed or loaded. Can you try again by fixing this issue first?

[saeedraeisi]

It did not work.can I share my screen via zoom? I  use the df1 from R script. and didnt use the file directly to the app.R.  may the error be because of this? Best Regards, Saeed Raeisi

[AntoineSoetewey]

It did not work.can I share my screen via zoom?

I  use the df1 from R script. and didnt use the file directly to the app.R.  may the error be because of this?

Best Regards,Saeed Raeisi

Yes. You refer to a dataset in your app that is not available outside of your environment. So your app cannot use that dataset.

So you must publish your data as well. The easiest way is to host the dataset online as a csv file and then import it via the url (at the beginning of your code).

Hope this helps.

Regards,
Antoine

[andrea83ny]

Hi, this is a great article, thank you for sharing it.
I have two questions please.

1. I developed a shiny app in my local computer that queries and source the data from databases I created and saved in my PC.
   How can I still use and access the data in my database if I publish the app?
2. My shiny app is quite big so I organized it over multiple files. Meaning, the main file has the code that defines all the pages and tabs, but the code where I developed each page is in separate R files.
   How can I deploy it in this case ?
   Thank you,
   Andrea

[AntoineSoetewey]

Hi, this is a great article, thank you for sharing it.
I have two questions please.

1. I developed a shiny app in my local computer that queries and source the data from databases I created and saved in my PC.
   How can I still use and access the data in my database if I publish the app?
2. My shiny app is quite big so I organized it over multiple files. Meaning, the main file has the code that defines all the pages and tabs, but the code where I developed each page is in separate R files.
   How can I deploy it in this case ?
   Thank you,
   Andrea

Dear Andrea,

1. Did you try to publish the databases as well (when you published your app)? If this doesn't work you'll probably need to host the databases on a website and import the data from this website. This is what I did for one of my app: the data is hosted on my personal website and the shiny app reads the data from the URL.
2. That shouldn't be a problem: if your app is working locally on your computer you simply have to publish all files.

Hope this helps.

Regards,
Antoine

[mouncey]

How can others see the shiny app if the url redirects to your local computer? Isn't the url "Antoine's Gateway" just someplace like http://127.0.0.1:1111 that only Antoine can access?

[AntoineSoetewey]

Before you publish it (so at step 4), yes the url redirects to your local computer and only you have access.

However, if you publish it by following the steps until the end, the app will be hosted online and everyone will have access to it via a shinyapps.io url.

Hope this helps.

[mouncey]

Thanks for the personal response! I was able to duplicate your example, and this one with boxplots at https://shiny.rstudio.com/articles/build.html If I replace mtcars with mydata then Run App produces a shinyapp as expected, but "An Error has occurred" when I try to republish. The log show Error in value[[3L]](cond) : object 'mydata' not found Does this sound like a newbie problem that I just don't know where to store my data? ~/ https://staff.washington.edu/mounce/

[AntoineSoetewey]

If you want that the shiny app uses the data that is currently on your computer locally, you have to publish the data as well.

I see that you have a website, so you could publish the data on your website and import the data from that new URL. Or you could also host the data on GitHub since you already have an account (and then import it from there). See more information in this section.

Regards,
Antoine

[mouncey]

Thanks again, I hacked something together with a read.csv command at the top of my app.R file, and the data in the same directory, and it appeared to all publish. It seems to be working, and I think I understand, so I'll keep learning best practices. In any case, your site and explanations were among the best I found, so thanks again! ~/ https://staff.washington.edu/mounce/

[AntoineSoetewey]

Glad you fixed it.
And thanks for the feedback!

[Yvonnelianyc]

Hi, Can I host my external dataset on google drive and download it from there?

[AntoineSoetewey]

Hello,

Yes you can.
See a live example here: https://antoinesoetewey.shinyapps.io/test_GS_shiny/

You'll see the code on GitHub (see the link directly in the app).

You'll need to authenticate the first time, see more info here.

Hope this helps.

Regards,
Antoine

[Yvonnelianyc]

Thank you Antoine!

[stevito88]

Hi everyone

I have the same issue as kuibaoli. My app runs perfectly on my local RStudio, but when I publish it, this error appears on the browser:
An error has occurred
The application failed to start.
exit status 1
It is very annoying as I need to publish the apps I create to pass the course!

Link to the app: https://stevito.shinyapps.io/exercise1/

Here is the code:

#####Import Data

dat <- read_csv(url("https://www.dropbox.com/s/uhfstf6g36ghxwp/cces_sample_coursera.csv?raw=1")) %>%
  select(c("pid7","ideo5")) %>% drop_na()

ui <- fluidPage(
  
  sidebarLayout(
    sliderInput(inputId = "ideo5",
                label = "Select Five Point Ideology (1=Very liberal, 5=Very conservative)",
                min = min(dat[,2]),
                max = max(dat[,2]),
                value = 3),
    
    plotOutput("distPlot")
  )
)

server <- function(input, output) {
  
  output$distPlot <- renderPlot({
    
    c <- ggplot(dat %>% filter(ideo5 == input$ideo5), aes(pid7)) + labs(x = "7 Point Party ID, 1=Very D, 7=Very D")
    c + geom_bar()
  })
}
shinyApp(ui = ui, server = server)

Any help would be very appreciated!

[AntoineSoetewey]

Hello @stevito88,

The app is working fine on my computer: https://antoinesoetewey.shinyapps.io/test/

The only thing I needed to add at the beginning of your code is the packages:

library(shiny)
library(dplyr)
library(tidyr)
library(tidyverse)

See the entire code here: https://github.com/AntoineSoetewey/help/blob/main/stevito88/test/app.R

Hope this helps.

Regards,
Antoine

[stevito88]

Hi @AntoineSoetewey

You're great! Now I finally succeeded to publish my Shinyapp! Thank you very much!

Best wishes,
Stella

[Udisgpgi]

i everyone

I have the same issue as kuibaoli. My app runs perfectly on my local RStudio, but when I publish it, this error appears on the browser:
An error has occurred
The application failed to start.
exit status 1
It is very annoying as I need to publish the apps I create to pass the course!

Link to the app: https://udishasingh.shinyapps.io/Indicators/

what should i do
please help me

[AntoineSoetewey]

Dear @Udisgpgi,

Can you please send me the files by email so I can have a look at your code?

Regards,
Antoine

[Udisgpgi]

Please do not share my code on GitHub . It's a request I have to publish it first for my progress presentation. Thank you

[ClariMora]

Dear all, I need help. I have a code for developing a Shiny app. I've followed all the steps, but I keep encountering an error. Even when it manages to connect with Shiny.posit (using my user, token, and secret), I still can't visualize anything. I'm not sure what I'm doing wrong. Could someone please provide guidance? Here's my code.

#Cargar archivos
areas_protegidas <- st_read("C:/Users/Clari Mora/Dropbox/PC/Documents/230911_Shape Areas Protegidas/WDPA_May2023_0_clip.shp")
ipa_shapefile <- st_read("C:/Users/Clari Mora/Dropbox/PC/Documents/230713_Info Generada/IPAs_WDPA_May2023_GHM_Identity.shp")


# Crear subsets
lower_priority_ipas <- ipa_shapefile %>%
  filter(Class == "Lower priority IPAs")

medium_priority_ipas <- ipa_shapefile %>%
  filter(Class == "Medium priority IPAs")

high_priority_ipas <- ipa_shapefile %>%
  filter(Class == "High priority IPAs")


ui <- fluidPage(
  titlePanel("IPAs Facility Visualization"),
  sidebarLayout(
    sidebarPanel(
      radioButtons("subset", "Select IPAs rank",
                   choices = c("Lower Priority", "Medium Priority", "High Priority"),
                   selected = "Lower Priority"),
      br(),
      selectizeInput("ua_ids", "Select UAs", 
                     choices = NULL, multiple = TRUE),
      br(),
      switchInput("show_hide_map", "WDPA", value = TRUE),
      br(),
      h4("Information UAs"),
      DTOutput("ua_info_table")
    ),
    mainPanel(
      leafletOutput("map", width = "100%", height = "100vh")
    )
  )
)

server <- function(input, output, session) {
  
  ua_choices <- reactive({
    subset_data <- switch(input$subset,
                          "Lower Priority" = lower_priority_ipas,
                          "Medium Priority" = medium_priority_ipas,
                          "High Priority" = high_priority_ipas)
    
    ua_choices <- unique(subset_data$Id_1)
    return(ua_choices)
  })
  
  observe({
    updateSelectizeInput(session, "ua_ids", choices = ua_choices())
  })
  
  ua_data_subset <- reactive({
    subset_data <- switch(input$subset,
                          "Lower Priority" = lower_priority_ipas,
                          "Medium Priority" = medium_priority_ipas,
                          "High Priority" = high_priority_ipas)
    
    if (!is.null(input$ua_ids) && length(input$ua_ids) > 0) {
      subset_data <- subset_data[subset_data$Id_1 %in% input$ua_ids, ]
    }
    
    ua_data_subset <- subset_data
    return(ua_data_subset)
  })
  
  output$map <- renderLeaflet({
    m <- leaflet() %>%
      addTiles() %>%
      setView(lng = -75, lat = 0, zoom = 4)
    
    if (input$show_hide_map) {
      m <- addPolygons(map = m, data = areas_protegidas, 
                       color = "green", fill = TRUE, fillOpacity = 0.5, 
                       weight = 2, group = "Protected Areas")
    }
    
    ua_data <- ua_data_subset()
    
    if (!is.null(ua_data)) {
      m <- addPolygons(map = m, data = ua_data,
                       color = "blue", fill = TRUE, fillOpacity = 0.5,
                       weight = 2, group = "Polygons")
    }
    
    return(m)
  })
  
  output$ua_info_table <- renderDT({
    ua_data <- ua_data_subset()
    
    if (!is.null(ua_data)) {
      ua_data <- ua_data[, c("Id_1", "Area_Km2", "Ecosistema", "DESIG_ENG", "Level_GHM")]
      ua_data <- st_drop_geometry(ua_data)
      colnames(ua_data) <- c("UAs", "Area_Km2", "Ecosystem", "Protected Area", "HM class")
      
      if ("HM class" %in% colnames(ua_data)) {
        ua_data <- ua_data %>%
          group_by(UAs, `HM class`) %>%
          summarise(Area_Km2 = sum(Area_Km2))
      }
      
      return(ua_data)
    } else {
      return(NULL)
    }
  })
}

shinyApp(ui, server)

[AntoineSoetewey]

Dear @ClariMora,

1. Just to make sure: did you load the necessary packages with library()? Because I don't see it in your code at the moment.
2. Have you tried to publish a very basic app? For example the app that you get when you create a new shiny app (i.e., the template).
3. If this does not fix the issue, and if your files are not confidential, could you please send them to me so I can check on my side? You'll find my email address at www.antoinesoetewey.com/contact

Regards,
Antoine

[ClariMora]

Dear Antoine, Thank you for your prompt response. My delay in replying was due to ongoing efforts to publish my Shiny app on www.shinyapps.io, which I'm still struggling with. I've ensured that all the required packages are loaded, and I've diligently followed the tutorials. However, I've encountered an error that I'm finding challenging to resolve: [cid:6e79f516-d6fd-4757-bf45-5c31a59511ca] [cid:0a0d38a7-8654-457f-a1af-a6cd4a09cbb0] The complexity arises from the use of shapes derived from results in my doctoral thesis. These shapes are integral to my work, and I've shared the data through this link: https://figshare.com/s/e60f4bffad24327f1d62. I've also submitted this information to the PLANTS, PEOPLE, PLANET journal. Your guidance or assistance in navigating this process would be immensely appreciated. I find myself a bit desperate as I'm still grappling with a comprehensive understanding of the publishing procedure. Best regards, Clara Morales-Rozo

[AntoineSoetewey]

Are you able to publish a basic Shiny app? For example the template that comes when you create a Shiny app.