Я пишу интерактивный отчет об уценке R, используя некоторые блестящие компоненты R, чтобы показать некоторые результаты аналитического анализа.
Я использовал renderPrint()
, чтобы отобразить результаты из describe()
, как показано ниже.
renderPrint({
check_list <- c("CustomerSatisfaction", "AssignedServiceFamily", "ProductName","ReportedSource")
df_overview <- df[check_list]%>%
subset(ReportedSource %in% input$select0) %>%
subset(AssignedServiceFamily %in% input$select1) %>%
subset(ProductName %in% input$select2)
describe(df_overview)
})
CustomerSatisfaction - это символьная переменная с 5 различными значениями. Однако вывод r уценки не может отображать все 5 значений в одной строке, хотя в ширине страницы все еще остается свободное место, как показано на снимке экрана ниже.
Я попытался увеличить ширину файла, настроив параметр, как показано ниже. В то время как ширина вывода уценки соответственно увеличилась, renderPrint()
по-прежнему отображает мои результаты для CustomerSatisfaction в двух частях. Увеличена только ширина серого фона.
<style>
body .main-container {
max-width: 1200px;
}
</style>
Я также попытался настроить ширину для renderPrint()
, как показано ниже, но у меня это не сработало.
renderPrint({mycode}, width = 800)
Есть идеи, как мне настроить отображение в одной части, как показано ниже?
Мой заголовок YAML установлен, как показано ниже.
---
title: "Title"
author: "Author"
date: "`r format(Sys.time(), '%Y-%m-%d')`"
output: html_document
theme: cosmo
runtime: shiny
---