logo
down
shadow

shinymeta works locally but breaks when published to shinyapps.io


shinymeta works locally but breaks when published to shinyapps.io

By : user3099709
Date : January 11 2021, 03:34 PM
fixed the issue. Will look into that further Examining the logs on shinapps.io, the problem appeared to be with the clipr package. This is a dependency of shinymeta but for some reason didn't seem to be called automatically the way other dependencies are. Adding the following code to the app.R file fixed the problem:
code :
library(clipr)


Share : facebook icon twitter icon
shiny app works locally, but not on shinyapps.io

shiny app works locally, but not on shinyapps.io


By : Dom
Date : March 29 2020, 07:55 AM
Hope that helps I solved this problem by using dbConnect & DBI libraries instead of RODBC and using RSQLServer::SQLServer() to open the connection on the sql server. and i thanks @PorkChop for give me a help in that.
R Shiny - uploading multiple csv works locally but not on shinyapps.io

R Shiny - uploading multiple csv works locally but not on shinyapps.io


By : Arun Popli
Date : March 29 2020, 07:55 AM
Any of those help You should not use csv_names <- input$file1[['name']] in your server, this only return the file name, not file path, so when you use read.csv to read the csv file, the error occured.
The following should work fine.
code :
library(shiny)
library(shinydashboard)


dashboardPage( skin = "black",
               dashboardHeader(title = "myApp"),
               dashboardSidebar(collapsed = TRUE,
                                sidebarMenu(
                                  menuItem("Home", tabName = "dashboard1", icon = icon("home", lib = 
                                                                                         "glyphicon"))
                                ) 
               ),
               dashboardBody(
                 tags$head(tags$style(HTML('
      .main-header .logo {
                          font-family: "Times New Roman", serif;
                          font-weight: bold;
                          font-size: 24px;
                          }
                          '))),

                 tabItems(
                   tabItem(tabName = "dashboard1",
                           fileInput("file1",
                                     label="Input files:",
                                     multiple = TRUE),
                           downloadButton('plot.pdf', 'Download Data')
                   )
                 )

               )
)
library(shiny)
library(shinydashboard)

#server start
function(input, output) {

  testinput<- reactive({
    if(is.null(input$file1))
      return ()
    else 
    {
      nfiles = nrow(input$file1) 
      csv = list()
      for (i in 1 : nfiles)
      {

        csv[[i]] = read.csv(input$file1$datapath[i])

      }

      csv_names <- input$file1$datapath
      mydata <- do.call(rbind, lapply(csv_names, function(x) cbind(read.csv(x), name=strsplit(basename(x),'\\.')[[1]][1])))
      mydata
    }
  })

  output$plot.pdf <- downloadHandler(
    filename = function() {
      "plot.pdf"
    },
    content = function(file) {
      withProgress(message = 'Your file is downloading',
                   detail = 'This may take a minute or two...', value = 0, {
                     for (i in 1:10) {
                       incProgress(1/10)
                       Sys.sleep(0.5)}

                     pdf(file)
                     plot(testinput()[,1])
                     dev.off()

                   })
    }        
  )   
}
sprintf runs locally, but breaks on shinyapps.io server

sprintf runs locally, but breaks on shinyapps.io server


By : user2325051
Date : March 29 2020, 07:55 AM
Does that help Wow, what's your R version? This works for me on R 3.4, but not R 3.2 or 3.5.
code :
# R 3.4.3
R.version.string
## [1] "R version 3.4.3 (2017-11-30)"
sprintf("%05.2#f", 123)
## [1] "123.00"

# R 3.2.3
R.version.string
## [1] "R version 3.2.3 (2015-12-10)"
sprintf("%05.2#f", 123)
## [1] "%05.2#f"

# R 3.5.0
R.version.string
## [1] "R version 3.5.0 (2018-04-23)"
sprintf("%05.2#f", 123)
## [1] "%05.2#f"
sprintf("%#05.0f", 123)
## [1] "0123."
Shiny App works locally, but not on the ShinyApps.io server

Shiny App works locally, but not on the ShinyApps.io server


By : Zoe
Date : March 29 2020, 07:55 AM
it helps some times I guess you have your library() calls in your code as they are missing above.
Anyway, I believe you are missing the info about the host/port/user/password for the database you want to connect to. See https://github.com/r-dbi/RPostgres.
Shiny app that fetches data via URL works locally but not on shinyapps.io

Shiny app that fetches data via URL works locally but not on shinyapps.io


By : Andy
Date : March 29 2020, 07:55 AM
like below fixes the issue I posted this question on multiple boards, and Joshua Spiewak on the Shinyapps.io Users Google group solved my problem:
Related Posts Related Posts :
  • How to retrieve the data frame used in a GEE model fit?
  • R: How to find/replace and then automatically execute code?
  • Slope of time series (xts) object over rolling window
  • Is there an R function for comparing rows in data.frame?
  • Changing linetype and line color with plot_model()
  • Update existing package on CRAN
  • Delete NA data ,but with certain condition in R
  • calculate number and names of similar sounding words from a data frame
  • Reset input fields of dynamically generated widgets through insertUI
  • Select certain region of column for lm
  • Convert multiple rows into one row depending on unique values in another column
  • Issues installing Plotly Dash for R
  • Is there an R function to retrieve values from a matrix of column names?
  • R;Too slow to overate loops for million vectors
  • How to optimize intersect of rows and columns in a matrix?
  • Format and export the output of Mann-Kendall test in R to excel from Rstudio
  • how to calculate cumsum with depreciation in a grouped dataframe?
  • reshape wide to long based on part of column name
  • How to get a hyperlink for the words in a description in an r dataframe?
  • Deparse and (un)escape quotes
  • Regression table with clustered standard errors in R jupyter notebook?
  • Disaggregate quarterly data to daily data in R keeping values?
  • How to save output to console and file simultaneously in RStudio server?
  • Why does data.table j have a different environment when directly calling mget() vs calling mget() inside another functio
  • scale_fill_viridis_c color bar on a log scale
  • How to change the lab name corresponding to function in ggplot
  • R, filtering for an element in a list in a dataframe cell
  • Extracting only bottom temperature from 4d NetCDF file
  • How to add/wrap lines of text to .tex with .sh script
  • R - building new variables from sequenced data
  • Sum rows values one after the other
  • Nesting ifelse inside summarytools
  • How best to divide different levels of a factor by one another in dataframe in R?
  • Why does my code run multiple times before I type data into the table? How do I make an action button that creates a tab
  • How to impute missing values not at random?
  • Set the y limits of an added average line of a plotly plot
  • how to calculate a new column after grouping with dplyr
  • Extract data from rows creating new columns using R
  • Create a filled area line plot with plotly
  • When do I need parentheses around an if statement to control the sequence of a formula in R?
  • my graph in ggplot2 contains an "e" character in y-axis
  • Making variables immutable in R
  • R: Difference between the subsequent ranks of a item group by date
  • Match data within multiple time-frames with dplyr
  • Conditional manipulation and extension of rows in data.table also considering previous extensions without for-loop
  • Conditional formula referring to preview row in DF not working
  • Set hoverinfo text in plotly scatterplot
  • Histogram of Sums from Categorical/Binary Data
  • Efficiently find set differences and generate random sample
  • Find closest points from data set B to point in data set A, using lat long in R
  • dplyr join on column A OR column B
  • Replace all string if row starts with (within a column)
  • Is there a possibility to combine position_stack and nudge_x in a stacked bar chart in ggplot2?
  • How can I extract bounding boxes in a row-wise manner using R?
  • How do I easily sum up values in different columns?
  • How to identify all columns that contain binary representation
  • Filter different groups by different factor levels
  • Saving .xlsx file to disc, form http post request
  • Add an "all" option under the filter that selects the number of rows displayed in a datatable
  • How to select second column of every xts in list
  • shadow
    Privacy Policy - Terms - Contact Us © festivalmusicasacra.org