2014-03-24 4 views
0

R 반짝이를 사용하여 간단한 웹 앱을 만들고 싶습니다. 버튼을 클릭하면 경로를 제공하고 내 웹 페이지에 이미지를 표시하여 하드 드라이브에서 이미지를로드합니다.이미지 또는 텍스트를 Shiny R로로드하십시오.

경로를 표시하는 등의 작업을 텍스트로 시작했지만 클릭하면 반응하지 않습니다. 메시지를 인쇄하지 않는다고 말합니다.

server.R :

shinyServer(function(input, output, session) { 
    dt<-reactive({ 
    output$text1 <- renderText({ 
    paste("You have selected", input$obs) 
    }) 
    }) 
}) 

ui.R :

reactives와
shinyUI(pageWithSidebar(
    headerPanel("Fruits and vegetables!"), 
    sidebarPanel(
    helpText("What do you see below?"), 
    #imageOutput(outputId="images/1.png") 
    numericInput("obs", "Number of observations to view:", 10), 
    actionButton("get", "Get") 
), 
    mainPanel(textOutput("text1")) 
)) 

답변

1

, 당신이 reactive 블록에 입력을 사용하고 코드를 포장해야하지만, 당신이 output 값을 설정해야합니다 그것의 바깥쪽에. 이 경우, 예

shinyUI(pageWithSidebar(
    headerPanel("Fruits and vegetables!"), 
    sidebarPanel(
    helpText("What do you see below?"), 
    #imageOutput(outputId="images/1.png") 
    numericInput("obs", "Number of observations to view:", 10), 
    actionButton("get", "Get") 
    ), 
    mainPanel(textOutput("text")) 
)) 

shinyServer(function(input, output, session) { 
    dt <- reactive({ 
    paste("You have selected", input$obs) 
    }) 
    output$text <- renderText({ dt() }) 
}) 

동적으로, 당신은 이미지의 URL을 입력에서 선택하는 방법에 대한 자세한 정보를 제공해야 imageOutput를 사용하려면 있어야합니다.

+0

본 적이 있습니다. 그러나이 코드가 수행하는 것은 "get"버튼을 누르지 않았을 때 즉시 변수를 업데이트하는 것입니다. 버튼을 누를 때까지 동작을 지연시키는 방법은 무엇입니까? – user1577191

+0

나는 그것이 "행동하는 것이 아니라"존재해야하는 "제출 버튼"이라고 알아 냈습니다! 작업 버튼에는 무엇이 사용됩니까? – user1577191

+0

많은 의견에 사과드립니다. 이미지 URL에 관해서, 내 R 스크립트의 로직은 이미지를 선택하여 페이지에 표시합니다. 필자는 로컬 컴퓨터의 경로 이름을 피드에 입력해야합니다. – user1577191