Блог

Я играю с shiny и не могу заставить работать простейший пример кнопки действия.

Первый пример, найденный здесь:http://shiny.rstudio.com/gallery/widgets-gallery.html

Ниже приведен код, который является копипастой с веб-сайта.

 #ui.R
shinyUI(fluidPage(

  # Copy the line below to make an action button
  actionButton("action", label = "Action"),

  hr(),
  fluidRow(column(2, verbatimTextOutput("value")))

))


#server.R
shinyServer(function(input, output) {

  # You can access the value of the widget with input$action, e.g.
  output$value <- renderPrint({ input$action })

})
  

Мой выглядит так:
http://imgur.com/t0Vx6Wr

редактировать: Проблема в том, что он также выводит некоторую информацию о классе, спасибо

Используйте renderText rather then renderPrint , если вы хотите, чтобы это выглядело так, как на shiny веб-сайте:

 require(shiny)
runApp(list(ui = fluidPage(
  actionButton("action", label = "Action"),
  hr(),
  fluidRow(column(2, verbatimTextOutput("value")))
)
, server = function(input, output) {
  output$value <- renderText({ input$action })  
})
)