小编Ash*_*aul的帖子

这是一个在 R 中创建的数据表的脚本。我试图通过调整图的宽度来完全适应框中的图。下面是情节的脚本以及我试图适应的盒子。请帮我调整使用数据表生成的图的宽度。另外，我不想增加框的宽度。可能的解决方案的链接将有很大帮助。谢谢。

数据表脚本：

r3_blood = subset(patient, handling == "Blood test" & employee == "r3")
  datatable(r3_blood, options = list(
    searching = FALSE,
    pageLength = 5,
    lengthMenu = c(5, 10, 15, 20)
  ))

将表格放入框中的脚本：

box( title = "Case Summary", status = "primary", height = 
  "575",solidHeader = T, 
                          dataTableOutput("sankey_table"))

给定的脚本在两个框中生成一个简单的直方图和一个滑块。我希望减少两个盒子之间的空间以及它们与屏幕末端的极端边界之间的空间。请帮助和感谢。地块快照

## app.R ##
library(shinydashboard)
ui <- dashboardPage(
dashboardHeader(title = "Basic dashboard"),
dashboardSidebar(
width = 0
),
dashboardBody(
# Boxes need to be put in a row (or column)
fluidRow(
box(title = "Activity Frequency", status = "primary",height = "520", 
solidHeader = T,
plotOutput("plot1")),
box(title = "Activity Frequency", status = "primary",height = "520", 
solidHeader = T,
sliderInput("slider", "Number of observations:", 1, 100, 50))
)
)
)
server <- function(input, output) {
set.seed(122)
histdata <- rnorm(500)
output$plot1 <- renderPlot({
data <- …

下面的脚本在 R 闪亮仪表板页面中的两个框中创建两个图，它们与框的右侧对齐，我希望将这些图对齐框的中心。这些包是创建给定图所需的最少包。请帮忙。

## app.R ##
library(shiny)
library(shinydashboard)
library(bupaR)
library(edeaR)
library(eventdataR)
library(processmapR)
library(processmonitR)
library(xesreadR)
library(petrinetR)

ui <- dashboardPage(
dashboardHeader(
),
dashboardSidebar(
width = 0
),
dashboardBody(
box(title = "Process Map", status = "primary",height = "575", solidHeader = 
T,patients %>% process_map(),align = "left"),
box(title = "Resource Map", status = "primary",height = "575", solidHeader = 
T,
resource_map(patients, render = T))
)
)

server <- function(input, output) { }

shinyApp(ui, server)

请检查右侧的数据表"案例分析详细信息".我想在框中放置数据表,使其从框中的右边框和下边框对齐,这样我们就可以向DT添加水平和垂直滚动条,可以用来跨越超过框的行.

## app.R ##
library(shiny)
library(shinydashboard)
library(DT)
ui <- dashboardPage(
dashboardHeader(title = "My Chart"),
dashboardSidebar(
width = 0
),
dashboardBody(
box(title = "Data Path", status = "primary",height = "595" ,solidHeader = T,
    plotOutput("trace_plot")),
box( title = "Case Analyses Details", status = "primary", height = 
"595",width = "6",solidHeader = T, 
     div(DT::dataTableOutput("trace_table",width = 220)))
))
server <- function(input, output) 
{ 
#Plot for Trace Explorer
output$trace_plot <- renderPlot({
plot(iris$Sepal.Length,iris$Sepal.Width)
})
output$trace_table <- renderDataTable({
mtcars
})
}
shinyApp(ui, server)

给定的函数在R中使用"stringdist"包,并告诉将一个字符串更改为另一个字符串所需的最小更改.我想知道"%"格式中一个字符串与另一个字符串的相似程度.请帮帮我,谢谢.

stringdist("abc","abcd", method = "lv")