I test my app on my laptop, and then deploy it to shinyapps server. Before deploying, I need to remove the statement setting the path, e.g.,
setwd('/Users/MrY/OneDrive/Data')
Is there a way the code can find out if it's running locally or on server, so that it will be like:
if (isLocal()) {
setwd('/Users/MrY/OneDrive/Data')
}
A trivial sample code (it will fail on server if setwd
isn't removed):
server.R
library(shiny)
setwd('/Users/Yuji/OneDrive/Data/TownState')
data = 'data1.csv' # to test, using an empty .csv file
shinyServer(function(input, output) {
})
ui.R
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("Click the button"),
sidebarPanel(
actionButton("goButton", "Go!")
),
mainPanel(
)
))
The standard way to do this in Shiny is with: Sys.getenv('SHINY_PORT')
. You could write something like:
is_local <- Sys.getenv('SHINY_PORT') == ""
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With