我正在尝试使用在“带有R的可复制财务”中找到的代码来实现shinyApp。下面的代码仅显示UI页面，而不显示服务器功能。我认为服务器功能应该可以工作，但我不知道为什么。有人可以帮助我了解服务器功能的问题是什么，为什么在运行应用程序时只能看到UI？
ui<-fluidPage(titlePanel("Portfolio Returns"),
sidebarPanel(fluidRow(
column(6,
textInput("stock1", "Stock 1", "SPY")),
column(5,numericInput("w1", "Portf. %", 25, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock2", "Stock 2", "EFA")),
column(5,numericInput("w1", "Portf. %", 25, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock3", "Stock 3", "IJS")),
column(5,numericInput("w1", "Portf. %", 20, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock4", "Stock 4", "EEM")),
column(5,numericInput("w1", "Portf. %", 20, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock5", "Stock 5", "AGG")),
column(5,numericInput("w1", "Portf. %", 10, min =1, max = 100))),
fluidRow(
column(7,
dateInput("date","Starting Date", "2013-01-01", format = "yyyy-mm-dd"))),
fluidRow(
column(6,
selectInput("rebalance", "rebal freq",
c("Yearly" = "years",
"Monthly"="months",
"Weekly"="weeks")))),
actionButton("go", "Submit")))
mainPanel(tabsetPanel(
tabPanel("Plot", plotOutput("plot")),
tabPanel("plot2", plotOutput("plot2")),
tabPanel("plot3", plotOutput("plot3"))
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
portfolio_returns_byhand<- eventReactive(input$go, {
#####Maybe problem here###########################################
symbols <- c(input$stock1, input$stock2, input$stock3,input$stock4, input$stock5)
prices <- symbols %>%
tq_get(get = "quandl",
from = "2007-01-01",
to = "2020-05-31",
transform = "rdiff",
collapse = "monthly",
column_index = 11) %>%
rename(monthly.returns = adj.close)
prices
#prices <- read_csv("Reproducible Finance.csv",
# col_types = cols(date = col_date(format = "%m/%d/%Y"))) %>% tk_xts(date_var = date)
w <- c(input$w1/100,input$w2/100,input$w3/100,input$w4/100,input$w5/100)
asset_returns_long <-
prices %>% to.monthly(indexAt = "last", OHLC=FALSE) %>% tk_tbl(perserve_index = TRUE, rename_index = "date") %>%
gather(asset, returns,-date) %>% group_by(asset) %>% mutate(returns = (log(returns)- log(lag(returns))))
portfolio_returns_byhand<- asset_returns_long %>%
tq_portfolio(assets_col = asset,
returns_col = returns,
weights = w,
col_rename= "returns")
})
output$plot <- renderPlot({
portfolio_returns_byhand() %>% ggplot(aes(x = returns))
ggplot(aes(x = return)) + geom_histogram(alpha = 0.25, binwidth = .01, fill = "cornflowerblue")
})
output$plot2 <- renderPlot({
portfolio_returns_byhand()%>% ggplot(aes(x = returns)) + geom_density(
size=1,
color= "blue"
)
})
output$plot3 <- renderPlot({
portfolio_returns_byhand() %>% ggplot(aes(x = returns)) + geom_histogram(alpha = 0.25,binwidth = 0.01, fill = "blue")+
geom_density(
size=1,
color = "red")
})
}
# Run the application
shinyApp(ui = ui, server = server) '''
答案 0 :(得分：0)
我将eventReactive替换为observeEvent，并用reactiveVal替换了portfolio_returns_byhand。
这是一种解决方法，我也不明白为什么eventReactive不能按预期工作。
cat在控制台中显示按钮已被考虑。
请测试，我没有不受限制的API密钥，并从Quandl获得警告/错误。
library(tidyquant)
library(shiny)
ui<-fluidPage(titlePanel("Portfolio Returns"),
sidebarPanel(fluidRow(
column(6,
textInput("stock1", "Stock 1", "SPY")),
column(5,numericInput("w1", "Portf. %", 25, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock2", "Stock 2", "EFA")),
column(5,numericInput("w1", "Portf. %", 25, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock3", "Stock 3", "IJS")),
column(5,numericInput("w1", "Portf. %", 20, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock4", "Stock 4", "EEM")),
column(5,numericInput("w1", "Portf. %", 20, min =1, max = 100))),
fluidRow(
column(6,
textInput("stock5", "Stock 5", "AGG")),
column(5,numericInput("w1", "Portf. %", 10, min =1, max = 100))),
fluidRow(
column(7,
dateInput("date","Starting Date", "2013-01-01", format = "yyyy-mm-dd"))),
fluidRow(
column(6,
selectInput("rebalance", "rebal freq",
c("Yearly" = "years",
"Monthly"="months",
"Weekly"="weeks")))),
actionButton("gobt", "Submit")))
mainPanel(tabsetPanel(
tabPanel("Plot", plotOutput("plot")),
tabPanel("plot2", plotOutput("plot2")),
tabPanel("plot3", plotOutput("plot3"))
)
)
# Define server logic required to draw a histogram
server <- function(input, output) {
portfolio_returns_byhand <- reactiveVal()
observeEvent(input$gobt, {
cat('Go button pressed\n')
symbols <- c(input$stock1, input$stock2, input$stock3,input$stock4, input$stock5)
prices <- symbols %>%
tq_get(get = "quandl",
from = "2007-01-01",
to = "2020-05-31",
transform = "rdiff",
collapse = "monthly",
column_index = 11) %>%
rename(monthly.returns = adj.close)
prices
#prices <- read_csv("Reproducible Finance.csv",
# col_types = cols(date = col_date(format = "%m/%d/%Y"))) %>% tk_xts(date_var = date)
w <- c(input$w1/100,input$w2/100,input$w3/100,input$w4/100,input$w5/100)
asset_returns_long <-
prices %>% to.monthly(indexAt = "last", OHLC=FALSE) %>% tk_tbl(perserve_index = TRUE, rename_index = "date") %>%
gather(asset, returns,-date) %>% group_by(asset) %>% mutate(returns = (log(returns)- log(lag(returns))))
res <- asset_returns_long %>%
tq_portfolio(assets_col = asset,
returns_col = returns,
weights = w,
col_rename= "returns")
portfolio_returns_byhand(res)
})
output$plot <- renderPlot({
portfolio_returns_byhand() %>% ggplot(aes(x = returns))
ggplot(aes(x = return)) + geom_histogram(alpha = 0.25, binwidth = .01, fill = "cornflowerblue")
})
output$plot2 <- renderPlot({
portfolio_returns_byhand()%>% ggplot(aes(x = returns)) + geom_density(
size=1,
color= "blue"
)
})
output$plot3 <- renderPlot({
portfolio_returns_byhand() %>% ggplot(aes(x = returns)) + geom_histogram(alpha = 0.25,binwidth = 0.01, fill = "blue")+
geom_density(
size=1,
color = "red")
})
}
shinyApp(server = server,ui)