Совместите изображение бок о бок в Shiny - PullRequest
Новая
       54

Совместите изображение бок о бок в Shiny

0 голосов
/ 13 февраля 2019

Я пытаюсь выровнять изображение, которое я вызываю из Интернета, чтобы оно было в центре моего блестящего приложения.Я использую тег html здесь, потому что файл изображения не сохраняется на моем компьютере, но я вызываю его из Интернета. fifa_data [fifa_data $ Name == input $ player_name,] $ Photo в моем файле server.R выглядит примерно так: "https://cdn.sofifa.org/players/4/19/200104.png"

Вот снимок того, чтоэто выглядит как сейчас, и красный квадрат - это то место, где я хочу, чтобы изображение отображалось:

enter image description here

Вот фрагмент моего пользовательского интерфейса. R 

ui2<- dashboardPage(
  dashboardHeader(title="BIG Player Hunter"),
dashboardSidebar(
fluidRow(
         uiOutput(outputId = "image")),
fluidRow(
  uiOutput(outputId = "image2")),
fluidRow(
  uiOutput(outputId = "image3")),
         # uiOutput(outputId = "image2"),
         # uiOutput(outputId = "image3")),
selectizeInput('player_name',"Player Name:",
               choices=fifa_data$Name,
               selected=NULL,
               multiple=TRUE),
sliderInput("player_count",
            "Number of players:",
            min=1,
            max=50,
            value=5),
sliderInput("proximity",
            "How close:",
            min=0.01,
            max=0.99,
            value=0.05),
sliderInput("valuerange", "Price Range", min = 0, max = max(fifa_data$ValueNumeric_pounds), 
            value = c(25, 75)),

actionButton("search", "Search"),

sidebarMenu(
  menuItem("Shoot 소개", tabName = "shoot_info", icon= icon("heart", lib= "glyphicon")),
  menuItem("점수순위 및 분석", tabName = "leaderboard", icon= icon("bar-chart-o")),
  menuItem("참가신청서", tabName = "signup", icon=icon("pencil", lib= "glyphicon"),
           badgeLabel = "관리자", badgeColor = "red")
),
uiOutput("checkbox")
),
dashboardBody(
  tabItem(tabName = "shoot_info",
        fluidRow(
          dataTableOutput("table1"),
          chartJSRadarOutput("radarchart1")
        )
)
)
)

Вот грешник моего сервера.R 

output$image<- renderUI({
    tags$img(src= fifa_data[fifa_data$Name==input$player_name,]$Photo)
  })

  output$image2<- renderUI({
    tags$img(src= fifa_data[fifa_data$Name==input$player_name,]$Flag)
  })

  output$image3<- renderUI({
    tags$img(src= fifa_data[fifa_data$Name==input$player_name,]$`Club Logo`)
  })

1 Ответ

0 голосов
/ 20 февраля 2019

Попробуйте использовать приведенный ниже код для вашего требования 

library(shiny)
library(shinydashboard)
header <- dashboardHeader()
body <- dashboardBody()
sidebar <- dashboardSidebar(uiOutput("images"),
                                sliderInput("player_count",
                                            "Number of players:",
                                            min = 1,
                                            max = 50,
                                            value = 5),
                                sliderInput("proximity",
                                            "How close:",
                                            min = 0.01,
                                            max = 0.99,
                                            value = 0.05),
                                actionButton("search", "Search")
)

ui <- dashboardPage(header, sidebar, body)

server <- function(input, output) {
  output$images <- renderUI({
  tags$div(img(src = "image1.png", width = 70, height = 90), img(src = "image2.png", width = 70, height = 90), img(src = "image3.png", width = 70, height = 90))
})
    }
shinyApp(ui, server)

Снимок экрана с выводом enter image description here

...