cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
New Member

Creating a Power BI Custom Visual R HTML internalSaveWidget(p, 'out.html') fviz_pca_var

Hi all, 

I would like to create a visual of a Principal Component Analysis using this fviz_pca_var function from this library factoextra.

 

I thought that p here internalSaveWidget(p, 'out.html') could be the output of fviz_pca_var function, but it is not working.

 

I getting this error:

Error Message:
R script error.
Loading required package: XML
Loading required package: htmlwidgets
Loading required package: dplyr

Attaching package: 'dplyr'

The following objects are masked from 'package:stats':

filter, lag

The following objects are masked from 'package:base':

intersect, setdiff, setequal, union

Loading required package: ggplot2
Loading required package: FactoMineR
Loading required package: factoextra
Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
Error in .getNamespace(pkg) :
invalid type/length (symbol/0) in vector allocation
Calls: internalSaveWidget ... file.exists -> system.file -> devtools_loaded -> .getNamespace
Execution halted

 

This is my script.r:

source('./r_files/flatten_HTML.r')

############### Library Declarations ###############
libraryRequireInstall("dplyr");
libraryRequireInstall("XML");
libraryRequireInstall("htmlwidgets");
libraryRequireInstall("ggplot2");
libraryRequireInstall("FactoMineR")
libraryRequireInstall("factoextra")

####################################################

################### Actual code ####################

dataset <- Values[, 2:ncol(Values)];

dataset  <- dataset [,sapply(dataset , is.numeric)];

res.pca = PCA(datasetgraph = FALSE);

var = get_pca_var(res.pca);

####################################################

############# Create and save widget ###############
p = fviz_pca_var(res.pcacol.var = "cos2",
              gradient.cols = c("#00AFBB""#E7B800""#FC4E07"), 
              repel = TRUE # Avoid text overlapping
              );

internalSaveWidget(p'out.html');
####################################################

 

Thank you so much for your help! 🙂

 

1 ACCEPTED SOLUTION
Community Support
Community Support

Hi @anaid ,

 

Try to refer to the link, which inclueds the same error.

Change sizing policy of a widget in R and save it 

 

Best regards,
Lionel Chen

If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

View solution in original post

1 REPLY 1
Community Support
Community Support

Hi @anaid ,

 

Try to refer to the link, which inclueds the same error.

Change sizing policy of a widget in R and save it 

 

Best regards,
Lionel Chen

If this post helps, then please consider Accept it as the solution to help the other members find it more quickly.

View solution in original post

Helpful resources

Announcements
secondImage

Congratulations!

We are excited to announce the Power BI Super Users!

Wave Release 2

Check out the updates in Power BI.

Overview of Power BI 2020 release wave 2!

Microsoft Ignite

Microsoft Ignite

Join digitally, March 2–4, 2021 to explore new tech that's ready to implement. Experience the keynote in mixed reality through AltspaceVR!

secondImage

The largest Power BI virtual conference

100+ sessions, 100+ speakers, Product managers, MVPs, and experts. All about Power BI. Attend online or watch the recordings.

Top Solution Authors
Top Kudoed Authors