RStudio Parlak Koşullu Çizim

Question

Farklı RSPudio özelliği Shiny ile farklı web sitelerini gösteren bir web uygulaması oluşturmaya çalışıyorum. Aşağıdaki örneği oluşturdum.

Veri seti StokMarket'i seçmek istiyorum, ardından DAX'i seçin ve son olarak çizim görünmelidir. Bu kodu çalıştırırsanız

Şu anda arsa

bana yardım eder misiniz hemen görünür?

ui.R: 
library(shiny) 
library(ggplot2) 

shinyUI(pageWithSidebar(

# Application title 
headerPanel("Plot1"), 
sidebarPanel(
selectInput("dataset", "Dataset", list("mtcars"="cars", "StockMarket"="stocks")), 

conditionalPanel(
    condition = "input.dataset=='stocks'", 
    uiOutput("data") 
)), 
mainPanel(
plotOutput('plotstock')))) 


server.R: 
library(shiny) 
require(ggplot2) 
library(datasets) 

shinyServer(function(input, output) { 

output$data<- reactiveUI(function() { 

selectInput("data", "Choose Dataset", colnames(EuStockMarkets)) 
}) 

output$plotstock <- reactivePlot(function() { 
data<-data.frame(EuStockMarkets) 
p<- ggplot(data,aes(x=seq(1,length(data[,1])),y=DAX))+geom_line(size=1)+ylab("")+opts(title="Time Series") 
print(p) 
})}) 

Answer 1

reactivePlot fonksiyonda da reactivePlot yılında

if (!nzchar(input$dataset)) 
    return(NULL) 

var ben de veri kümesi seçimler ("(Choose one)"="") ve boş bir giriş eklemek istiyorum

if (is.null(input$data)) 
    return(NULL) 

gibi bir şey yapabilirsiniz. Ayrıca

Answer 2

boş dizeleri

if (!nzchar(input$dataset) || input$dataset=='') 
return(NULL)